帕斯卡尔除法运算

问题描述

编写一个程序，如果m在n上除而无余，则返回1，否则返回0。

program Division;
var m,n:longint;
begin
   readln(m,n);  
   writeln(5 mod 4);
   writeln((1-(n mod m)div 2));
end.

解决方法

program Division;
var n,m: integer;
begin
    readln(n,m);
    writeln (1 - (n mod m + 1) div 2 mod 2);
end.