输123 321结果是1

label 1;

var a,b:1..10000000;

q,w:1..1000000000000;

c,e:integer;

begin

readln(a,b);

if a=b then begin q:=a;goto 1;end;

if (a>b)and(a mod b=0)then begin q:=b;goto 1;end;

if (ab)and(a mod b0)then begin

for c:=maxint downto 1 do begin

if (a mod c=0)and(b mod c=0)then begin

q:=c;

goto 1;

end;

end;

end;

if(a

0 条评论

目前还没有评论...

信息

ID
1047
难度
8
分类
高精度 点击显示
标签
(无)
递交数
7372
已通过
774
通过率
10%
被复制
24
上传者