Составьте пожалуйста задачу ** программе АВС Дано вещественное число А и целое число...

Question

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

Answer 1

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.