Предмет: Информатика,
автор: banc2014
Ребята нужно срочно !!!!
Приложения:

Ответы
Автор ответа:
0
Паскаль
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.
Интересные вопросы
Предмет: Геометрия,
автор: nursultankyrgyz848
Предмет: Литература,
автор: denys180910
Предмет: Физкультура и спорт,
автор: iraplys87
Предмет: Алгебра,
автор: tydura