Наибольшее число

[ilyachiz]

Напишите следующую программу. Ввести с клавиатуры целое число N и найти такое наибольшее целое число K, что будет справедливо неравенство
1 + 2 +3 + … + K – 1 + K < N^2

[Vanta11a]

Так напишите. В чем проблема?

[ViktorR]

1 + 2 +3 + … + K – 1 + K - это арифметическая прогрессия.
Сумма вычисляется по известной формуле.
Записываете неравенство и решаете его математически, затем пишите программный код, если он тут нужен.
Учитывая то, что K - целого типа, используйте округление в меньшую сторону.
От полученного результата надо взять целую часть.


Как-то так, ...

[009]

var n,k,s: integer;
begin
  readln(n);
  while s+k+1<n*n do begin
  s:=s+k+1;
  inc(k);
  end;  
  writeln(k);
end.