Ответы
Ответ дал:
0
Var
i:integer;
S:real;
Begin
S:=0;
For i:= 1 to 7 do
S:=S+1/i;
Write('S = ',S);
End.
i:integer;
S:real;
Begin
S:=0;
For i:= 1 to 7 do
S:=S+1/i;
Write('S = ',S);
End.
Вас заинтересует
3 месяца назад
10 месяцев назад
10 месяцев назад
1 год назад
1 год назад
7 лет назад