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

Question

Информатика

Лавруша

10 октября, 23:57

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

+3

Ответы (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.