Question

найти остаток от деления не используя mod в паскале

Answer 1

var a,b:integer;
begin
readln(a,b);
writeln(a-b*(a div b));
end.