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

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

Question

Гермес

8 сентября, 06:41

+3

Ответы (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составить программу в Паскале