Ответы и объяснения

  • Tlalok
  • почетный грамотей
2013-03-26T08:54:54+00:00

var
  a, Summ, C:real;
  n, i, koef:integer;
begin
  write('a = '); readln(a);
  write('n = '); readln(n);
  Summ := 1;
  koef := -1;
  C := 1;
  for i := 1 to n do
  begin
    C := C * A;
    Summ := Summ + koef * C;
    koef := -koef;
  end;
  writeln('Summ = ', Summ);
end.