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

Вопрос школьника по предмету Математика

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.