program aa;

var temp,a,b,n,m,c,d:integer;

begin

readln(a,b);

if b>a then begin

n:=b;

m:=a;

c:=b;

d:=a;

end

else begin

n:=a;

m:=b;

c:=a;

d:=b;

end;

while true do begin

if n mod m=0 then break;

temp:=n;

n:=m;

m:=temp mod m;

end;

writeln((c div m) *d);

end.

2 条评论

  • 1

信息

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