Question

1. Даны числа от 1 до N.Найти S: 1/2+1/3+…+1/N

Answer 1

var

i,n:integer;

s:real;

begin

repeat

write ('N = ');readln(n);

until (n>0);

s:=0;

for i:=1 to n do s:=s+1/i;

writeln ('S = ',s:0:4);

readln;

end.