Cod sursa(job #2189164)
Utilizator | 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.