讨论 / 这道题的后面8位是怎么输出的
寻逆缘 2012-07-23 06:53:00
点我顶贴 收藏 删除
RT

program fib;

var x,y,g,r:integer;

m,n:longint;

function ls(t:integer):integer;

begin

if t=1 then ls:=1

else if t=2 then ls:=1

else ls:=ls(t-1)+ls(t-2);

end;

function gcd(m,n:integer):integer;

var r:integer;

begin

r:=m mod n;

if r=0 then gcd:=n

else gcd:=gcd(n,r);

end;

BEGIN

readln(x,y);

m:=ls(x);

n:=ls(y);

g:=gcd(m,n);

write(g);

readln;

END.

这样还哪里不行

#1 77@2012-07-23 06:53:00
回复 删除
如果原本的位数大于8那么就保留后8位

如果原本的位数小于等于8 就不用

查看更多回复
提交回复