Pagini recente » Istoria paginii runda/ofjaso20165/clasament | Cod sursa (job #370687) | Cod sursa (job #1842688) | Cod sursa (job #1116573) | Cod sursa (job #1368603)
program algoritm_euclid_2_cmmdc;
var a,i,t,b:integer; f,g:text;
function cmmdc(a:integer; b:integer):integer;
begin
if a=b then cmmdc:=a else
if a>b then cmmdc:=cmmdc(a-b,b) else
if a<b then cmmdc:=cmmdc(a,b-a);
end;
begin
assign(f,'date_euclid.in');
assign(g,'date_euclid.out');
reset(f); 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.