1. 

   AS_Pushkin New Member

   Написать программу, которая вычисляет сумму первых n членов ряда 1+1/3+1/5+1/7...1/n через опреатор for todo

    

   AS_Pushkin, 25 мар 2010

   #1
2. 

   MC_dig_eggs New Member

   Var n,i:integer; s:real;
   Begin
    write('n='); readln(n);
    s:=0;
    for i:=1 to (n*2)-1 do
      if (i mod 2)<>0 then s:=s+1/i;
    writeln('s=',s:0:2);
   End.

    

   MC_dig_eggs, 25 мар 2010

   #2

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

Пароль:

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

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