Arithmetic/Integer: Difference between revisions
Content added Content deleted
No edit summary |
(LSE64) |
||
Line 157: | Line 157: | ||
format "Remainder: %\n" (mod x y) |
format "Remainder: %\n" (mod x y) |
||
=={{header|LSE64}}== |
|||
over : 2 pick |
|||
2dup : over over |
|||
arithmetic : \ |
|||
" A=" ,t over , sp " B=" ,t dup , nl \ |
|||
" A+B=" ,t 2dup + , nl \ |
|||
" A-B=" ,t 2dup - , nl \ |
|||
" A*B=" ,t 2dup * , nl \ |
|||
" A/B=" ,t 2dup / , nl \ |
|||
" A%B=" ,t % , nl |
|||
=={{header|Pascal}}== |
=={{header|Pascal}}== |