Информатика, вопрос задал nikki16 , 8 лет назад

Помогите пожалуйста! Паскаль

Дано число n, найти P=(1-1/2^2 )*(1-1/3^2 )*(1-1/4^2 )*...*(1-1/n^2 ) 

                                                 

Приложения:

Ответы на вопрос

Ответил nelle987
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.

Ответил komasilo
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.

Новые вопросы