Паскаль информатика ! решить 2

Kakashka2001 Kakashka2001    1   10.12.2019 16:26    1

Ответы
tonplaton tonplaton  10.10.2020 19:47

задача №1

program n1;

var q,w,e:integer;

begin

e:=1;

writeln('введите количество рыбок,которое наловил дед');

readln(q);

while q>0 do begin

 q:=q-e;

 e:=e+1;

         end;

  writeln(e);

 

end.

Объяснение:

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