Anonymous user
Arithmetic/Integer: Difference between revisions
Added DWScript
(→{{header|Brat}}: Use ask) |
(Added DWScript) |
||
Line 479:
WriteLn(Format('%d ^ %d = %d', [a, b, Trunc(Power(a, b))]));
end.</lang>
=={{header|DWScript}}==
<lang delphi>var a := StrToInt(ParamStr(0));
var b := StrToInt(ParamStr(1));
PrintLn(Format('%d + %d = %d', [a, b, a + b]));
PrintLn(Format('%d - %d = %d', [a, b, a - b]));
PrintLn(Format('%d * %d = %d', [a, b, a * b]));
PrintLn(Format('%d / %d = %d', [a, b, a div b]));
PrintLn(Format('%d mod %d = %d', [a, b, a mod b]));
PrintLn(Format('%d ^ %d = %d', [a, b, Trunc(Power(a, b))]));</lang>
=={{header|E}}==
| |||