【基础】辗转相除

来自本人百度空间 2009-08-20 16:44

program zhanzhuanxiangchu(input,output);
var
        a,b,c:longint;
begin
        assign(input,'chu.in');
        reset(input);
        assign(output,'chu.out');
        rewrite(output);        readln(a,b);
        close(input);        while a mod b<>0 do begin
            c:=a mod b;
            a:=b;    b:=c;
        end;
        writeln(b);
        close(output);
end.