Cod sursa(job #507875)

Utilizator grigiqGRIG T. grigiq Data 7 decembrie 2010 00:35:40
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.33 kb
Raporteaza aceasta sursa 
 program cmmdc;
  var a,b,c,t,i:longint;
     f,f1:text;
  begin
 assign(f,'euclid2.in');
 assign(f1,'euclid2.out');
 reset(f);
 rewrite(f1);
 readln(f,t);
 repeat
 readln(f,a,b);
 repeat
 c:=a mod b;
 a:=b;
 b:=c;
 until c=0;
 if a<>1 then writeln(f1,a,'')else write(f1,'0');
 until i=t;
 close(f);
 close(f1);
 end.