Cod sursa(job #2189164)

Utilizator ine_hanghangan inesa ine_hang Data 27 martie 2018 19:47:58
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.5 kb
program euclid2;
 var a,b:2..2000000000;
     d:array[1..100000]of 2..2000000000;
     i,t:1..100000;
     m,n:text;
 begin
 assign(n,'euclid2.in');
 reset(n);
 readln(t);
 for i:=1 to t do readln(n,a,b);
 close(n);
 for i:=1 to t do begin
                  while a=b do
                  if a>b then a:=a-b
                     else  b:=b-a;
                  d[i]:=a;
                  end;

 assign(m,'euclid2.out');
 rewrite(m);
 for i:=1 to t do writeln(m,d[i]);
 close(m);
 end.