Дано вещественное число A (>1). Вывести наименьшее из целых чисел N, для которых сумма 1+…+1/N будет больше A, и сумму

@LegolasSO · Регистрация: 05.11.2018

Добрый вечер всем.
Нужна помощь в задании по Pascal ABC

Само задание:
Дано вещественное число A (>1). Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+…+1/N будет больше A, и саму эту сумму.

Данное задание уже гуглил, и находил код на форуме, но он не подходит в принципе

Дано вещественное число A (> 1). Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 + . + 1/N будет больше A, и саму эту сумму

Мне для сдачи отчета нужен код, основанный на цикле for
Пытался сделать сам, получилось что то вроде этого

Pascal

program p2;
uses crt;
var
a,n:real;
i:integer;
begin
writeln('Введите вещественное число A');
readln(A);
n:=0;
for i:=1 to n do
begin
n:=n+1/i;
writeln('Сумма S=',s:0:5);
end;
end.

но ничего не запускается, ибо выдает ошибку с переменными (не нравится ему что то)
В общем, запутался полностью. Сам вряд ли смогу дойти до финала, поэтому пишу тут

Заранее благодарю!

Добавлено через 1 час 22 минуты
Очень жестко протупил.
Решение по ссылке верное, цикл for здесь не требуется.
Проблема решена.

@ZX Spectrum-128 · 22.11.2018, 12:08

Сообщение от LegolasSO

Проблема решена.

10.Если вопрос был решен вами самостоятельно, отпишите об этом в своей теме - есть и другие люди, которые столкнутся с той же проблемой, и им поможет ваш ответ.

https://www.cyberforum.ru/announcement.php?a=3

@ZX Spectrum-128 6804 / 4563 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	22.11.2018, 12:08	2
	Сообщение от LegolasSO Проблема решена. 10.Если вопрос был решен вами самостоятельно, отпишите об этом в своей теме - есть и другие люди, которые столкнутся с той же проблемой, и им поможет ваш ответ. https://www.cyberforum.ru/announcement.php?a=3 0

Опции темы