计算t=1的一次方+2的2次方
+3
的3次方......+n的n次方 直到n的n次方〉=10的5次方时的t值是多少...
真心不会啊，写了3小时了，还是显示Error

10的五次方是100000吧

用双重循环

楼主问题能说明白点吗？能不能用递归？

program aaa;
var t,n,i,nn:longint;
begin
n:=0;t:=0;
while nn<10000 do
begin
n:=n+1;nn:=1;
for i:=1 to n do nn:=nn*n;
t:=t+nn;
end;
writeln('t=',t);
end.
答案是50069，你错误的原因可能是类型没调好，这么大的数字应该用longint来存

终于用图片格式搞到了题目：
没说不可以用递归
哪个大虾出手帮助啊？

23

t=873612 n=7
下面放程序：
program t1;
var t,n,i,nn:longint;{nn存储n^n的值}
begin
n:=0;t:=0;
while nn<100000 do
begin
n:=n+1;nn:=1;
for i:=1 to n do nn:=nn*n;
t:=t+nn;
end;
writeln('t=',t);
end.