Question

Să se scrie un program care citește numărul natural n și determină suma S=1la puterea 1+2la puterea 2+ ... + n la puterea n .

Answer 1

var n,i:integer;
sum:real;

begin
read(n);
writeln;

for i:=1 to n do sum+=power(i,i);

writeln('Suma: ',sum);
end.