Ответы
Ответ дал:
0
begin
var n := ReadlnInteger('n =');
var p := 1.0;
var i := 1;
while (i <= n) do begin
p *= (1 - 1/(2 * i));
i += 1;
end;
p.Println;
end.
var n := ReadlnInteger('n =');
var p := 1.0;
var i := 1;
while (i <= n) do begin
p *= (1 - 1/(2 * i));
i += 1;
end;
p.Println;
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад