1. 

   Rybak113 New Member

   Помогите составить программу в паскале. Дано натуральное число n. Вычислить: p=(1-1/2^2)(1-1/3^2)*...*(1-1/n^2), гдеn>2

    

   Rybak113, 4 янв 2010

   #1
2. 

   Sova New Member

   думаю так.
    
   var i,n:integer; p:real;
   begin
   cls;
   write('write n '); readln(n);
   for i:=2 to n do
   begin
   p:=p+(1-(1/sqr(i)));
   end;
   writeln(p);
   readln;
   end.

    

   Sova, 4 янв 2010

   #2

Ваше имя или e-mail:

Пароль:

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

Запомнить меня