Написать программу для нахождения суммы 1/1+1/2+1/3+....1/n

17 Мар 2020 в 19:41
105 +1
0
Ответы
1

var n,i: integer; s: real;

begin

readln(n);

s:=0;

for i:=1 to n do s:=s+1/i;

writeln(s);

end.

17 Мар 2020 в 20:07
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир