Cod sursa(job #860389)

Utilizator tziplea_stefanTiplea Stefan tziplea_stefan Data 20 ianuarie 2013 12:54:14
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.36 kb
Program algoritm;
var
a,b,i,n,r: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.