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

Question

Информатика

Луиза

1 февраля, 12:02

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

+1

Ответы (1)

Знаете ответ на вопрос?

Маргарита · 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.