a738. 最大公约数 -- 海豚原创 | From: [222.66.36.252] | 發表日期 : 2014-12-17 15:54

var

  a,b,c:longint;

begin

  while not eof do begin

  readln(a,b);

  if (a=0) or (b=0) then exit;

  while b>0 do begin

    c:=a mod b;

    a:=b;

    b:=c;

  end;

  writeln(a);

end;

end.