Cod sursa(job #551082)

Utilizator AreinIon Guzun Arein Data 10 martie 2011 12:28:34
Problema Algoritmul lui Euclid Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.35 kb
Raporteaza aceasta sursa 
var  a,b,c,n,i : longint;
     t,t2 : text;

procedure cmmdc(a,b : longint);
begin
if (b=0) then begin c:=a; exit; end
else cmmdc(b, a mod b);
end;

begin
assign(t,'euclid2.in');
reset(t);
assign(t2,'euclid2.out');
rewrite(t2);

read(t,n);
for i:=1 to n do
begin
read(t,a,b);
cmmdc(a,b);
writeln(t2,c);
end;

close(t);
close(t2);
end.