Помогите пожалуйста! Паскаль
Дано число n, найти P=(1-1/2^2 )*(1-1/3^2 )*(1-1/4^2 )*...*(1-1/n^2 )
Приложения:
Ответы
Ответ дал:
0
var i,n:integer;
p: real;
begin
p:=1;
realn(n);
for i:=2 to n do
p:=p*(1-1/i/i);
writeln(p)
end.
Ответ дал:
0
var ans:real;n,i:integer;
begin
readln(n);
ans:=1;
for i:=2 to n do ans:=ans*(1-1/sqr(i));
writeln(ans);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад