Cod sursa(job #143589)

Utilizator Vlad-andreiVlad Fisca Vlad-andrei Data 26 februarie 2008 18:06:56
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.38 kb
program cmmdc;
uses dos;
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);
     begin
          while(b<>0)do
          begin
               r:=a mod b;
               a:=b;
               b:=r;
          end;
     end;
     writeln(g,a);
     close(f);
     close(g);
end.