Question

Ребята нужно срочно !!!!

Answer 1

Паскаль

var

x,y,r,q: integer;

begin

readln (x);

readln (y);

r:=x;

q :=0;

while r>= y do

begin

r:= r-y;

q:= q+1;

end;

writeln(r);

writeln(q);

end.