Salut,
Programul de mai jos rezolvă cerința din enunț. L-am compilat, nu sunt erori și l-am testat (pentru n = 4, programul returnează exact valoarea 288).
program Calc_suma;
Uses Math;
var
suma : real;
n : integer;
i : integer;
begin
suma := 0;
write('Introduceti un numar natural n > 0: ');
readln(n);
For i :=1 to n do suma := suma + power(i,i);
writeln('Valoarea sumei este: ', suma:0:0);
end.
Să îți fie de folos !
Green eyes.
