Arithmetic/Integer: Difference between revisions
no edit summary
(Updated both D entries) |
No edit summary |
||
Line 2,289:
End Sub
End Module</lang>
=={{header|XPL0}}==
<lang XPL0>include c:\cxpl\codes;
int A, B;
[A:= IntIn(0);
B:= IntIn(0);
IntOut(0, A+B); CrLf(0);
IntOut(0, A-B); CrLf(0);
IntOut(0, A*B); CrLf(0);
IntOut(0, A/B); CrLf(0); \truncates toward zero
IntOut(0, rem(0)); CrLf(0); \remainder's sign matches first operand (A)
]</lang>
=={{header|XSLT}}==
| |||