2 1/3+(-0.75)+(-1/4)

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

2 1/3+(-0.75)+(-1/4)=2 1/3-75/100-1/4=2 1/3-3/4-1/4=2 1/3-4/4=2 1/3-1=1 1/3