Размещено 5 лет назад по предмету
Информатика
от Ayna2135
Паскаль.Помогите исправить программу под эту формулу:1+(1/(1+2))+(1/(1+2+3))+(1/(1+2+3+4))+(1/(1+2+...+n))
var
s : real;
i, n : integer;
begin
s := 0;
read (n);
for i := 1 to n do s := s + 1 / i;
writeln (s);
end.