Arithmetic/Integer: Difference between revisions
Content added Content deleted
(m4) |
(→{{header|Scheme}}: ++ smalltalk) |
||
Line 493: | Line 493: | ||
(gcd 8 12) => 4 |
(gcd 8 12) => 4 |
||
(lcm 8 12) => 24 |
(lcm 8 12) => 24 |
||
=={{header|Smalltalk}}== |
|||
{{works with|GNU Smalltalk}} |
|||
<lang smalltalk>| a b | |
|||
'Input number a: ' display. |
|||
a := (stdin nextLine) asInteger. |
|||
'Input number b: ' display. |
|||
b := (stdin nextLine) asInteger. |
|||
('a+b=%1' % { a + b }) displayNl. |
|||
('a-b=%1' % { a - b }) displayNl. |
|||
('a*b=%1' % { a * b }) displayNl. |
|||
('a/b=%1' % { a // b }) displayNl. |
|||
('a%%b=%1' % { a \\ b }) displayNl.</lang> |
|||
=={{header|Tcl}}== |
=={{header|Tcl}}== |