Отправлено: 05.05.17 18:10. Заголовок: Задание 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" к единице?

 Отправлено: 06.05.17 15:15. Заголовок: Артем пишет: исправи..

Артем пишет:

цитата:

исправил строку "k := 0;" на строку "k := 1;"

Да, это верно.