發表新討論
#8904: pascal语言打法参考


lswei (魏子轩)

b097. C. 數數字 -- 2005 NPSC 國中組初賽 | From: [222.66.36.254] | 發表日期: 2014-06-25 15:08
var
  a,b,c,i,s:longint;
function gbs(a,b:longint):longint;
var
  t,m,n:int64;
begin
  m:=a;
  n:=b;
  if (a<b) then begin
   t:=a;
   a:=b;
   b:=t;
  end;
  while (b<>0) do begin
   t:=a mod b;
   a:=b;
   b:=t;
  end;
  gbs:=m*n div a;
end;
begin
  while not eof do begin
   readln(s);
   for i:=1 to s do begin
    readln(a,b);
    c:=gbs(a,b);
    writeln(c);
   end;
  end;
end.
ZeroJudge Forum