Cod sursa(job #1823833)

Utilizator iulia_tarnaIulia Tarna iulia_tarna Data 6 decembrie 2016 21:26:35
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.36 kb
Raporteaza aceasta sursa 
Program eculid2;

Var

  a,b,i,t,r:longint;
  f1,f2:text;

Begin

Assign (f1,'euclid2.in');
Reset  (f1);
Assign (f2,'euclid2.out');
Rewrite(f2);

Readln (f1,t);

For i:=1 to t do

 begin

 Readln (f1,a,b);

 While b <> 0 do
 begin
     r:=a mod b;
     a:=b;
     b:=r;

       end;

 Writeln (f2,a);
 end;
Close (f1);
Close (f2);

end.