Cod sursa(job #243161)

Utilizator beriangratianberian grartian beriangratian Data 12 ianuarie 2009 08:55:59
Problema Algoritmul lui Euclid Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.4 kb
program euclid;
var f,g:text;
    a,b,n,i:longint;
function cmmdc(a,b:longint):longint;
 var r:longint;
 begin
  repeat
  r:=a mod b;
  a:=b;
  b:=r;
  until r=0;
  cmmdc:=a;
 end;
begin
 assign(f,'euclid2.in');
 reset(f);
 readln(f,n);
 assign(g,'euclid2.out');
 rewrite(g);
 for i:=1 to n do
  begin
   readln(f,a,b);
   writeln(g,cmmdc(a,b));
  end;
 close(f);
 close(g);

end.