Форум » Циклы и ветвления » Задание 24 №498 » Ответить
Задание 24 №498
Артем: Для заданного положительного вещественного числа A необходимо найти минимальное целое число K, при котором выполняется неравенство: 1 + (1/2) + (1/3) + ... + (1/K) ≥ A var a, s: real; k: integer; begin read(a); k := 0; s := 1; while s >= a do begin k := k + 1; s := s + 1.0/k; end; write(k); end. Найти ошибки. В ответах одна из двух ошибок - это: Неверная инициализация. Строка с ошибкой: s := 1; Верное исправление: s := 0; Я исправил строку "k := 0;" на строку "k := 1;" вместо того, что исправлено в ответах, так как посчитал это правильным. Это равносильные исправления? Можно приравнять "s" к нулю, либо приравнять "k" к единице?
Ответов - 1
Поляков: Артем пишет: исправил строку "k := 0;" на строку "k := 1;" Да, это верно.
полная версия страницы