Cod sursa(job #159499)

Utilizator ral33xstaic raluca ral33x Data 14 martie 2008 10:37:50
Problema Algoritmul lui Euclid Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.43 kb
program euclid;
uses crt;
var t,a,b,i:longint;
    f,g:text;
function cmmdc(a,b:longint):longint;
begin if b=0 then cmmdc:=a
      else cmmdc:=cmmdc(b,a mod b)
end;
procedure citire;
begin assign(f,'euclid2.in');reset(f);
      assign(g,'euclid2.out');rewrite(g);
      readln(f,t);
      for i:=1 to t do begin
          readln(f,a,b);
          writeln(g,cmmdc(a,b));
      end;
end;
begin citire;
      close(g)
end.