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

Question

Эсфирка

29 сентября, 23:54

+2

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

Работает = )