Cod sursa(job #1069897)

Utilizator TzrMAldea Paula TzrM Data 30 decembrie 2013 17:11:16
Problema Algoritmul lui Euclid Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.35 kb
var a,b,t,i:longint;
    f,g:text;
function cmmdc(a,b:longint):longint;
begin
 if a mod b= 0 then cmmdc:=b
 else cmmdc:=cmmdc(b,a mod b);
end;

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;
 close(f);
 close(g);
end.