Ответ(ы) на вопрос:
Гостьvar
n, i, f: integer;
p:real;
begin
n := 10;
i := 2;
f := i;
p := 1;
repeat
p := p * (1 - 1 / f);
i := i + 1;
f := f * i;
until i > n;
writeln(p * p);
end.
Не нашли ответ?
Похожие вопросы