Помогите составить программу решения задачи в паскаль АВС. Дано вещественное число А и целое число N (больше0). Используя один цикл, найти сумму 1 + А + Аквадрат+Акуб + ... А в энной степени

Question

Тонюха

11 ноября, 01:17

+4

Ответы (1)

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

Олимпиодора · Answer 1

Var n, i: integer;

a, y: real;

begin

readln (a, n) ;

for i : = 0 to n do

y : = y + exp (ln (a) * I) ;

writeln (y) ;

end.

Работает =)