составить программу вычисления суммы 1/2+1/4+1/6+...+1/20 с использованием оператора repeat
ABCpascal
Ответы
Ответ дал:
0
Program p13;
Var
A:integer;
S:real;
Begin
S:=0;
A:=2;
Repeat
S:=S+1/A;
A:=A+2;
Until A>20;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 1.46448412698413
Var
A:integer;
S:real;
Begin
S:=0;
A:=2;
Repeat
S:=S+1/A;
A:=A+2;
Until A>20;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 1.46448412698413
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
8 лет назад
8 лет назад