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

Варежкамяу Варежкамяу    1   25.05.2019 09:50    7

Ответы
Ааааа111235 Ааааа111235  21.06.2020 11:28
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.

Работает =)
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика