Cod sursa(job #858654)

Utilizator tziplea_stefanTiplea Stefan tziplea_stefan Data 19 ianuarie 2013 10:02:05
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.36 kb
Program impartire;
var
a,b,r,i,n:longint;
cin,cout:text;
begin
assign(cin,'euclid2.in');
reset(cin);
assign(cout,'euclid2.out');
rewrite(cout);
read(cin,n);

for i:=1 to n do
  begin
  read(cin,a,b);
  r:=a mod b;
  while r<>0 do
    begin
    a:=b;
    b:=r;
    r:=a mod b;
    end;
    writeln(cout,b);
  end;

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