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

Question

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

Экономика

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.