Ответы и объяснения

2013-05-22T16:25:11+00:00

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.