21 lines
579 B
Plaintext
21 lines
579 B
Plaintext
$ include "seed7_05.s7i";
|
|
|
|
const proc: main is func
|
|
local
|
|
var integer: a is 0;
|
|
var integer: b is 0;
|
|
begin
|
|
write("a = ");
|
|
readln(a);
|
|
write("b = ");
|
|
readln(b);
|
|
|
|
writeln("a + b = " <& a + b);
|
|
writeln("a - b = " <& a - b);
|
|
writeln("a * b = " <& a * b);
|
|
writeln("a div b = " <& a div b); # Rounds towards zero
|
|
writeln("a rem b = " <& a rem b); # Sign of the first operand
|
|
writeln("a mdiv b = " <& a mdiv b); # Rounds towards negative infinity
|
|
writeln("a mod b = " <& a mod b); # Sign of the second operand
|
|
end func;
|