Cod sursa(job #143670)

Utilizator HoriaClementHoriaC HoriaClement Data 26 februarie 2008 19:16:20
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.27 kb
var x,y,cmmdc:longint;
    f,g:text;
begin
assign(f,'cmmdc.in');reset(f);
assign(g,'cmmdc.out');rewrite(g);
read(f,x,y);
while x<>y do
      if x>y then x:=x-y
             else y:=y-x;
cmmdc:=x;
if cmmdc=1 then cmmdc:=0;
write(g,cmmdc);
close(f);
close(g);
end.