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

2

Ответы и объяснения

  • Kitsu
  • почетный грамотей
2012-11-21T16:08:40+00:00

var i,sum:integer;

begin

while sum<20 do begin

i:=i+1;

sum:=sum+i;

end;

writeln(i);

end.

2012-11-21T16:58:48+00:00