求余数……
Program P3980;
var
a,b:longint;
begin
while not seekeof do
begin
read(a,b);
writeln(a mod b);
end;
end.
求余数……
Program P3980;
var
a,b:longint;
begin
while not seekeof do
begin
read(a,b);
writeln(a mod b);
end;
end.