Ответ:
могу только на паскале....
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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
могу только на паскале....
program Counter(output, input);
var x, y, r q: integer;
begin
read(x);
read(y);
r := x;
q:= 0;
while r >= y do
begin
r:= r - y;
q:= q + 1
end;
writeln(r, q);
end.