Cod sursa(job #1368603)

Utilizator torgeadelinTorge Adelin torgeadelin Data 2 martie 2015 18:46:56
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.42 kb
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.