могу только на паскале
program Counter(output, input);
var x, y, r q: integer;
begin
read(x);
read(y);
r := x;
q:= 0;
while r >= y do
r:= r - y;
q:= q + 1
end;
writeln(r, q);
end.
