Ответы
Ответ дал:
0
Var
P:real;
n:integer;
Begin
P:=1;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
P:=P*(1-1/(2*n));
WriteLn('P = ',P);
End.
P:real;
n:integer;
Begin
P:=1;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
P:=P*(1-1/(2*n));
WriteLn('P = ',P);
End.
Вас заинтересует
4 месяца назад
4 месяца назад
2 года назад
7 лет назад