Всі умови | Умова: Дано дійсні числа a1, ..., a10. Обчислити a1 + a2^2 + ... + a10^10
(С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №317)
program pr317;
const
n = 10;
var
i, j: integer;
a, s, e : real;
begin
s := 0;
for i := 1 to n do
begin
write('a',i,' = '); readln(a);
e := 1;
for j := 1 to i do
e := e * a;
s := s + e;
end;
writeln('Suma: ', s:5:2);
readln;
end.