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