- 最小公倍数
-
ywj745015814 LV 5 @ 2012-10-12 19:59:25
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 条评论
目前还没有评论...
