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

Question

Информатика

Владя

3 февраля, 05:04

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

+1

Ответы (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.