从1乘到100的程序怎么做？（pascal）

来源：百度知道 编辑：UC知道 时间：2024/07/02 01:02:20
如题
求菲波拉契数列a0,a1,a2,……a20
还有这题，会一道就可以啊!

program dd;
var
n:array[1..10] of longint;
i,j,z:longint;
begin
for i:=1 to 10 do n[i]:=0;
n[1]:=1;
for i:=2 to 100 do
begin
z:=0;
for j:=1 to 10 do
begin
n[j]:=n[j]*i+z;
z:=n[j] div 10000;
n[j]:=n[j] mod 10000;
end;
end;
i:=10;
while n[i]=0 do i:=i-1;
for j:=i downto 1 do write(n[j]);
end.

2L longint 不够！！！

var
n,i:longint;
begin
n:=1;
for i:=1 to 100 do
n:=n*i;
wirteln(n);
end.

比较简单没检验。。。应该没问题。。。

int result = 1;
for(i=1;i<=100;i++)
{

result *= i;
}

int i=1;
for(int j=1;j<=100;j++)
{
i=i*j;
}