Информатика, опубликовано 2018-08-22 19:09:54 by Гость
Помогите составить программу решения задачи в паскаль АВС. Дано вещественное число А и целое число N( больше0). Используя один цикл, найти сумму 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.
Работает =)
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на