Дано натуральное число N. Вычислить: s=1/1+1/2+1/3+⋯+1/N

составить программу в Паскале

Question

Ванюха

29 сентября, 01:06

+5

Ответы (1)

Знаете ответ на вопрос?

Филат · Answer 1

Var

i, n:integer;

s:real;

begin

readln (n) ;

for i:=1 to n do

s:=s+1/i;

writeln (s:4:2) ;

end.

Дано натуральное число N. Вычислить: s=1/1+1/2+1/3+⋯+1/Nсоставить программу в Паскале