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

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

                                                     

    question img

Ответы 2

  • 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.

    • Автор:

      pretty
    • 6 лет назад
    • 0
  • var ans:real;n,i:integer;beginreadln(n);ans:=1;for i:=2 to n do ans:=ans*(1-1/sqr(i));writeln(ans);end.

    • Автор:

      estrella
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years