While11. Дано целое число $$N$$ ($$> 1$$). Вывести наименьшее из целых чисел $$K$$, для которых сумма $$1 + 2 + … + K$$ будет больше или равна $$N$$, и саму эту сумму.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
program While11; var N,K,Temp :Integer; begin Write('Введите N: '); Readln(N); K:=0; Temp:=0; while Temp<N do begin inc(K,1); Temp:=Temp+K; end; Writeln(K,' ',Temp); end. |
Другие задачи из раздела While можно посмотреть здесь.
Просто K и Temp надо выводить в ответ.
Поправил.
было:
Writeln(K+1,’ ‘,Temp+K+1);
Стало:
Writeln(K,’ ‘,Temp);
Нужно найти наименьшее из целых чисел К, а у вас находит наибольшее.