Cod sursa(job #572909)

Utilizator oancea_horatiuOancea Horatiu oancea_horatiu Data 5 aprilie 2011 18:47:37
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.4 kb
program cmmdc_perechidenumere;
var c,n,x,y:longint;
    d,o:text;
function cmmdc(a,b:longint):longint;
 begin
   while a<>b do
     if a<b then b:=b-a
            else a:=a-b;
   cmmdc:=a;
 end;
begin
assign(d,'euclid2.in');assign(o,'euclid2.out');
reset(d);rewrite(o);
readln(d,n);
for c:=1 to n do
  begin
    read(d,x);read(d,y);
    writeln(o,cmmdc(x,y));
  end;
close(d);close(o);
end.