Question

用free pascal 做一个程序

求s=1^1+2^2+3^3+…+n^n (输入n, 输出s，建议s定义为longint类型)

Answer 1

var n,s,i:longint;
begin
readln(n);
for i:=1 to n do s:=s+sqr(i);//sqr：求一数的平方，如：sqr(2)=4
writeln(s);
end.

Answer 2

var a,b,c,d,n,i,s:longint;
begin
readln(n);
s:=1;
a:=0;
for i:=1 to n do
begin
begin
s:=i*i;
end;
a:=a+s;
end;
writeln(a);
readln;
end.
希望楼主采纳

Answer 3

program tt;
var n,i,t,s,j:longint;
begin
read(n);
for i:=1 to n do
begin
t:=i;
for j:=2 to i do //算每次的次方
t:=t*i;
s:=s+t; //累加求和
end;
write(s);
end.
如果s为longint，那n的范围也不会多大吧，一般都用高精度的

Answer 4

var
s,n,i:longint;
begin
readln(n);
for i:=1 to n do
s:=s+i*i;
writeln(s);
end.
不知道有什么难道............................

Answer 5

var n,a,s,i,j:longint;
begin
readln(n);
for i:=1 to n do begin
a:=1;
for j:=1 to i do a:=a*i;
s:=s+a;
end;
writeln(s);
end.

Answer 6

var
i,j,k,l:longint;
begin
readln(n);
for i:=1 to n do
k:=k+i*i;
writeln(k);
end.