Предмет: Информатика, автор: ksshenka

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

Приложения:

Ответы

Автор ответа: tihomirovleonid2005
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.

Приложения:
Похожие вопросы
Предмет: Математика, автор: Prostokvashka3000