Cod sursa(job #836893)

Utilizator gabimoiseMoise Gabriel gabimoise Data 16 decembrie 2012 21:13:02
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.26 kb
Raporteaza aceasta sursa 
program cmmdc;
var f,g:text;
    a,b,r:longint;
begin
  assign(f,'cmmdc.in');reset(f);
  assign(g,'cmmdc.out');rewrite(g);
  readln(f,a,b);
  r:=0;
  repeat
    r:=a mod b;
    a:=b;
    b:=r;
  until r=0;
  writeln(g,a);
  close(f); close(g);
end.