寻逆缘 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.
这样还哪里不行