Форум » Циклы и ветвления » задание 24, номер 492 » Ответить
задание 24, номер 492
pascal_oleg: Здравствуйте, у меня вопрос по 3 пункту данного задания: (№ 492) Дано целое положительное число N. Необходимо определить наименьшее целое число K, для которого выполняется неравенство: 1 + 2 + ... + K > N. Программист написал программу неправильно. Паскаль var n, k: integer; begin read(n); k := 1; while n > 0 do begin n := n - k; k := k + 1; end; writeln(k) end. 3. Найдите все ошибки в этой программе (их может быть одна или несколько). Известно, что каждая ошибка затрагивает только одну строку и может быть исправлена без изменения других строк. Для каждой ошибки: 1) выпишите строку, в которой сделана ошибка; 2) укажите, как исправить ошибку, т.е. приведите правильный вариант строки. в ответах сказано: 3. В программе есть две ошибки. 1) Неверное условие цикла. Строка с ошибкой: while n > 0 do Верное исправление: while n >= 0 do 2) Неверный вывод результата. Строка с ошибкой: writeln(k); Верное исправление: writeln(k-1); собственно, вопрос - можно ли ограничиться только этой заменой? while n > 0 do begin на while n >= k do begin
Ответов - 2
Поляков: pascal_oleg пишет: собственно, вопрос - можно ли ограничиться только этой заменой? while n > 0 do begin на while n >= k do begin Можно. Это тоже правильно.
pascal_oleg: спасибо!
полная версия страницы