Извиняюсь.
Var i,n:integer; s: real; Begin Writeln('Число слагаемых - '); readln(n); for i:=1 to n do s:=s+1/i; writeln('s = ',s); End.
Извиняюсь.
Var i,n:integer;
s: real;
Begin
Writeln('Число слагаемых - ');
readln(n);
for i:=1 to n do s:=s+1/i;
writeln('s = ',s);
End.