задача №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.
Объяснение:
