Cod sursa(job #2524846)
| Utilizator |  Vladimir Chim Mihclerio |
Data | 16 ianuarie 2020 14:18:00 |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.17 kb |
var a,b,t,d:longint;
begin
read(t);
while t<>0 do begin
read(a,b);
d:=a mod b;
while(d<>0) do begin
a:=b;
b:=d;
d:=a mod b end;
writeln(b);
dec(t);
end;
end.