Question

1. Составить программу для вычисления суммы последовательности 1+1/2+1/3+1/4+…+1/7.

Answer 1

Var
   i:integer;
   S:real;
Begin
S:=0;
For i:= 1 to 7 do
    S:=S+1/i;
Write('S = ',S);
End.