Cod sursa(job #475635)
Utilizator | Simina Pitur Stigma | Data | 7 august 2010 19:46:15 |
---|---|---|---|
Problema | Algoritmul lui Euclid | Scor | 30 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.4 kb |
program euclid2;
var fin,fout:text;
a,b,t,i:integer;
function alg(a,b:integer):integer;
begin
if b=0 then alg:=a
else
if a>b then alg:=alg(a-b,b)
else
alg:=alg(a,b-a);
end;
begin
assign(fin,'euclid2.in');
reset(fin);
assign(fout,'euclid2.out');
rewrite(fout);
read(fin,t);
for i:=1 to t do
begin
read(fin,a);
read(fin,b);
writeln(fout,alg(a,b));
end;
close(fout);
end.