Дано целое число N (> 1). Вывести наименьшее из целых чисел K, для которых сумма 1 + 2 + ... + K будет больше или равна N, и саму эту сумму

code: #pascal
program while11;
uses crt;
var
  n,k,i:integer;
begin 
  clrscr;
  writeln('Введите число ');
  readln(n);
    k:=0;
    i:=0;
while i<n do 
  begin
    k:=k+1;
    i:=i+k;
  end;
writeln('Сумма ',i);
writeln('Число ',k);
readln
end.
Поделиться:

Похожие статьи: