1. 

   doopler New Member

   Составить программу для вычисления суммы S=1/2+1/2^2 +...+1/2^(10.)

    

   doopler, 18 янв 2010

   #1
2. 

   mas.ik New Member

   Извиняюсь.
   Var i,n:integer;
   s: real;
   Begin
   Writeln('Число слагаемых - ');
   readln(n);
   for i:=1 to n do s:=s+1/i;
   writeln('s = ',s);
   End.
    

    

   mas.ik, 18 янв 2010

   #2

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

Пароль:

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

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