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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

var i,sum:integer; begin while sum<20 do begin i:=i+1; sum:=sum+i; end; writeln(i); end.