Cod sursa(job #283622)

Utilizator cristim_00Mihok Cristian cristim_00 Data 19 martie 2009 14:18:05
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.4 kb
 var x,a,b:longint;
     f,g:text;

 function cmmdc (a,b:longint):longint;
          begin
           repeat
            if a>b then a:=a-b
             else if b>a then b:=b-a;
           until a=b;
            cmmdc:=a;
          end;

 begin
  assign(f,'cmmdc.in');reset(f);
  assign(g,'cmmdc.out');rewrite(g);
  read(f,a,b);
  x:=cmmdc(a,b);
  write(g,a);
  close(f); close(g);
 end.