Дано вещественное число A и целое число N (> 0). Вывести 1 + A + A2 + A3 + ... + An.

Question

Дано вещественное число A и целое число N (> 0). Вывести 1 + A + A2 + A3 + ... + An.

Answer 1

var

  A, Summ:real;

  N, i:integer;

begin

  Summ := 1;

  write('a = '); readln(a);

  write('n = '); readln(n);

  for i := 1 to n do

    Summ := Summ + A * i;

  writeln('Summ = ', Summ);

end.