不明白，n<=1000怎么还需要高精？
是不是求第n项啊，n不是某项的值？
题目写错了吧：）
高精加法貌似网上一挖一麻袋吧：）

1楼说得对，高精加法网上一挖一麻袋，多的是…………
高精度加法就是一个数组的问题嘛。
伪码如下：高精度数a+b=c
var
  a,b,c:array [1..你需要的位数] of byte
for i:=1 to 你需要的位数 do begin
  c[i]:=a[i]+b[i];
  if c[i]>9 then begin {处理进位的问题，由于两个数的加法在同一位上最多进1，因此只要用if，否则要用while语句}
    c[i]:=c[i]-10;
    inc(c[i+1]);
    end;
  end;
就这么简单。
（代码我是直接输的，有可能略微有些问题）

真的很多
不信自己试一下
原题：

高精度算法测试
搬砖头（rock）
【问题描叙】
小可可一直对中国五千年的古老文明非常感兴趣，学习历史知识之余，他报名参加了少年考古队，跟随正式的考古队进行考古发掘，通过实践来更好的领会书本知识。这次考古队发现了一个非常巨大的古墓，具有非常高的考古价值，小可可随队来到了考古现场。经过紧张的发掘，古墓的墓道终于显露出来，但是它被一块块方砖封住了，现在小可可的任务就是帮助考古队将这些方砖移走，打通墓道。由于这些保存完好的古代方砖也是珍贵的文物，所以规定一次最多只能搬三块砖。小可可在搬砖的过程中一直在思考一个问题，他很想知道将这些砖头搬走共有多少种不同的搬法。
例如，现在总共有4个砖头，那么可以选择的方法有以下7种：
1，1，1，1（分4次搬完，每次搬一个砖头）
1，2，1（分3次搬完，第一次搬一个，第二次搬两个，第三次搬一个）
1，1，2（分3次搬完，第一次搬一个，第二次搬一个，第三次搬两个）
2，1，1（分3次搬完，第一次搬两个，第二次搬一个，第三次搬一个）
2，2（分2次搬完，第一次搬两个，第二次搬两个）
1，3（分2次搬完，第一次搬一个，第二次搬三个）
3，1（分2次搬完，第一次搬三个，第二次搬一个）
你能不能帮助小可可解决这个问题呢？
【输入格式】
输入文件rock.in共一行。是一个1～1000的正整数N，表示共有Ｎ块砖头。 
【输出格式】
输出文件rock.out共一行。输出一个正整数表示N块砖头移动的方法数。
【输入样例】
4
【输出样例】
7

有QQ群没

program ex;
var
a:array[1..] of integer;
i1,i2,i3,i4,i5,j1,j2,j3,j4,j5,s:integer;
function f(x,y:integer):boolean;
var k:integer;
begin
f:=true;
for k:=1 to x do if [?] then f:flase;
end;
procedure print;
var i:integer;
begin
for i:=1 to 5 do write(a[i]:3):writeln;
end;
begin
s:=[?];
for i1:+1 to 5 do
begin
j1 :=1; [?];
for i2:=1 to 5 do
if f(j2,i3) then
begin
j3:=3; a[j3]:=i3;
for i4:=1 to 5 do
if f(j3,i4) then 
begin
j4:=4;a[j4]:+i4;
for i5:1 to 5 do
if f(j4,i5) then begin j5:=5; a[j5]:=i5;print; [/]; end;
end;
end;
end;
end;
writeln('s=',[?]);
end.

这就是圣诞礼物的问题有谁会呀

可以把

[size=6][size=4][size=3]拜托，是前三项之和等于第四个数[/size][/size][/size]

仔细看题目