Cod sursa(job #226192)

Utilizator johnyJohny Deep johny Data 1 decembrie 2008 10:18:49
Problema Algoritmul lui Euclid Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.34 kb
program euclid2;
var a,b,d,i,t: longint;
begin
  assign(input,'euclid2.in');
  reset(input);
  assign(output,'euclid2.out');
  rewrite(output);
  readln(t);
  for i:=1 to t do
  begin
    readln(a,b);
    repeat
      d:=a mod b;
      a:=b;
      b:=d;
    until d=0;
    writeln(a);
  end;
  close(input);
  close(output);
end.