For10. дано целое число N (>0). найти сумму 1+1/2 + 1/3 ... + 1/N

Question

Информатика

Моля

18 февраля, 14:35

For10. дано целое число N (>0). найти сумму 1+1/2 + 1/3 ... + 1/N

+4

Ответы (1)

Знаешь ответ?

Азарий · Answer 1

Var n, i:integer;

sum:real;

begin

writeln ('Введите N = ');

read (n);

sum:=1;

for i:=1 to n do

sum:=sum+1/i;

writeln ('Сумма равна ', sum);

end.