Question

Написать программу. Дано: Геометрическая прогрессия со знаменателем 2 Найти: Сумму 10 первых членов прогрессии.
Язык паскаль.

Answer 1

===== PascalABC.NET =====

begin

 var a0 := ReadReal('Укажи начальное значение:');

 Println('Сумма равна', SeqGen(10, a0, i -> 2 * i).Sum)

end.