Question

1) Составьте программу, которая определяет, сколько слагаемых должно быть в сумме 1+2+3+4+...,чтобы сумма была больше 20!!!!!!через оператор WHILE!!!!!!!!!!!!!!

Answer 1

var i,sum:integer;

begin

while sum<20 do begin

i:=i+1;

sum:=sum+i;

end;

writeln(i);

end.

Answer 2

Дай мне лучшее решение плиз)