Cod sursa(job #143600)

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