Дано целое число N (> 1). Вывести наименьшее из целых чисел K, для которых сумма 1 + 2 + ... + K будет больше или равна N, и саму эту сумму
Категория: Delphi/Pascal
2013-03-15 15:40:18
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.
Поделиться: