Cod sursa(job #143592)

Utilizator Vlad-andreiVlad Fisca Vlad-andrei Data 26 februarie 2008 18:13:07
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.33 kb
Raporteaza aceasta sursa 
program cmmdc;
var f,g:text;
    a,b,r:longint;
begin
     assign(f,'cmmdc.in');
     assign(g,'cmmdc.out');
     reset(f);
     rewrite(g);
     read(f,a,b);
     r:=a mod b;
     while(r<>0) do
     begin
          a:=b;
          b:=r;
          r:=a mod b;
     end;
     write(g,b);
     close(f);
     close(g);
end.