Question

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

Answer 1

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

Answer 2

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