Синформатикой! ! решается в pascal.​

dddashaaa1 dddashaaa1    2   04.04.2019 22:23    0

Ответы
Salsa13 Salsa13  28.05.2020 16:57

var

 A, D, Q, R: integer;

begin

 read(A, D);  

 Q := 0; R := 0;

 while (A >= D) do  

 begin

   A := A - D;    

   Q := Q + 1;

 end;

 R := A;

 write('Частное = ', Q, ' Остаток = ', R);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика