Question

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

Answer 1

program prim; var i,sum,n,x : integer; begin write('n = '); readln(n); x:=2; sum:=2; i:=1; while sum<=n do begin x:=x+2; i:=i+1; sum:=sum+x; end; writeln(i,'слагаемых'); end.