1. 

   askom999 New Member

   Составьте пожалуйста задачу на программе АВС Дано вещественное число А и целое число N(>0). Используя один цикл,найти значение выражения 1-А+А(вквадрате)-А(в кубе)+....(-1)N * АN за ренее спасииибооо:*

    

   askom999, 27 фев 2010

   #1
2. 

   ali-k New Member

   var a,s,an:real;
   i,n:integer;
   Begin
     read(a,n);
     an:=1;
     for i := 0 to (n+1) do
       s:=s+an;
       an:=an*(-a);
     end;
     writeln(s);
   End.

    

   ali-k, 27 фев 2010

   #2

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

Пароль:

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

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