Cod sursa(job #352855)

Utilizator alekuCraia Alexandru aleku Data 3 octombrie 2009 16:29:11
Problema Algoritmul lui Euclid Scor 30
Compilator fpc Status done
Runda Arhiva educationala Marime 0.33 kb
Raporteaza aceasta sursa 
var f,f2:text;
i,t,a,b,r:integer;
begin
assign (f,'euclid2.in');
assign (f2,'euclid2.out');
reset (f);
rewrite (f2);
readln (f,t);
for i:=1 to t do
begin
read (f,a);
readln (f,b);
while (b<>0) do
      begin
      r:=a mod b;
      a:=b;
      b:=r;
      end;
writeln (f2,a);
end;
close (f);
close (f2);
readln;
end.