Предмет: Информатика,
автор: ksshenka
Нужно написать программу(паскаль) по алгоритму.
Желательно не мудренную, для чайника. 8 класс
Приложения:

Ответы
Автор ответа:
1
program test;
var
x, y, r, q:integer;
begin
read(x, y);
r := x;
q := 0;
while true do
begin
if r >= y then begin
r := r - y;
q:= q + 1;
end
else
break;
end;
write(r, ' ', q);
end.
Приложения:

Похожие вопросы
Предмет: Українська мова,
автор: vicili
Предмет: Математика,
автор: fremysya
Предмет: Литература,
автор: semi868
Предмет: Физика,
автор: natashakim0114
Предмет: Математика,
автор: Prostokvashka3000