Решить задачу y=1/1+1/2+1/3+1/4 ... + 1/N на языке программирования паскаль при помощи алгоритма.

Question

Информатика

Тоня

15 декабря, 04:34

Решить задачу y=1/1+1/2+1/3+1/4 ... + 1/N на языке программирования паскаль при помощи алгоритма.

+4

Ответы (1)

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

Милия · Answer 1

Var

n, i: word;

sum: real;

begin

write ('n = ') ;

readln (n) ;

sum : = 0;

for i : = 1 to n do

sum : = sum + 1 / (i) ;

writeln (sum:6:5) ;

end.