Cod sursa(job #590252)

Utilizator qwertyuPeter Eke qwertyu Data 16 mai 2011 08:38:15
Problema Algoritmul lui Euclid Scor 30
Compilator fpc Status done
Runda Arhiva educationala Marime 0.35 kb
Raporteaza aceasta sursa 
function gdc(a,b:integer):integer;
begin if b = 0 then gdc:=a
else gdc:=gdc(b,a mod b) end;

var f,g:text;
    i,j,k,l,m,n:integer;
begin
assign(f,'euclid2.in'); reset(f);
assign(g,'euclid2.out'); rewrite(g);

read(f,n);
for i:=1 to n do
 begin
 read(f,k,l);
 writeln(g,gdc(k,l));
 end;

writeln(gdc(66,88));

close(f);
close(g);
end.