cmmdc.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 16 行

program cmmdc;
var a,n,b,r:integer;
begin
write('a'); readln(a);
write('b'); readln(b);
n:=a;
if a>b then a:=a; b:=b;
repeat
      if (a mod b)=0 then writeln('cmmdc',b);
      begin
           r:=a mod b;
           a:=b;
           b:=r;
      end
until r=0;
end.