Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var
  n,i : Integer;
Begin
  Readln(n);
  i:=1;
  While (i+1)*i div 2<=n do Inc(i);
  Writeln(i);
end.