Cod sursa(job #760604)

Utilizator Jack_NickButnari Nicolae Jack_Nick Data 22 iunie 2012 13:04:59
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.35 kb
Raporteaza aceasta sursa 
var t, a, b: byte;
    f, l: text;

begin
  assign(f, 'euclid2.in');
  reset(f);
  assign(l, 'euclid2.out');
  rewrite(l);

  read(f, t);
  while not eof(f) do
    begin
       read(f, a, b);
       repeat
          if a>b then a:=a-b
                 else b:=b-a;
       until a=b;
       writeln(l, a);
    end;

  close(l);
end.