發表新討論
#9530: pascal答案


lsyyw2002 (袁祎炜)

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.
ZeroJudge Forum