Cod sursa(job #272682)

Utilizator andreirulzzzUPB-Hulea-Ionescu-Roman andreirulzzz Data 7 martie 2009 17:42:09
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.27 kb
Raporteaza aceasta sursa 
var a,b:integer;
    f:text;
begin
assign(f,'euclid2.in');
reset(f);
read(f,a,b);
close(f);
while a<>b do
      if a>b then a:=a-b
         else if a<b then b:=b-a;
assign(f,'euclid2.out');
rewrite(f);
if a=1 then write(f,0)
   else write(f,a);
close(f);
end.