Cod sursa(job #777592)

Utilizator tziplea_stefanTiplea Stefan tziplea_stefan Data 12 august 2012 20:13:58
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.47 kb
Program algoreuclid;

VAR


a,b,c,t,i:longint;
cin,cout:text;

begin
  assign(cin,'euclid2.in');
  reset(cin);
  assign(cout,'euclid2.out');
  rewrite(cout);
  read(t);
  for i:=1 to t do
  begin
    read(cin,a,b);
    while (a>0) and (b>0) do
    begin
     if (a>b)
      then
       a:=a-b
      else
       b:=b-a;
    end;
    if (a>b)
    then
      c:=a
    else
      c:=b;
    writeln(cout,c);
  end;


  close(cin);
  close(cout);
end.