Ответ:

задача №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.

Объяснение: