- 最小公倍数
-
ywj745015814 LV 5 @ 2012-10-07 16:36:24
label 1;
var
a,b,icm,i:integer;
begin
readln(a,b);
for i:=100000 to 1 do begin
if (b mod i=0)and(a mod i=0) then goto 1;
end;
1:icm:=(a*b) div i;
write(icm);
end.
1 条评论
-
woshishui--- LV 10 @ 2012-10-10 09:06:04
10^100，用integer，不出负数才是怪事……
- 1
