Cod sursa(job #2130337)
| Utilizator |  Nicu Tkacenko Nicoskalele |
Data | 13 februarie 2018 17:03:23 |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 60 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.29 kb |
var a,b,t,c:int64; i:longint;
fi,fo:text;
begin
assign (fi,'euclid2.in'); reset(fi);
assign (fo,'euclid2.out'); rewrite(fo);
read(fi,t);
for i:=1 to t do begin
read (fi,a,b);
c:=0;
while b<>0 do begin
c:=a mod b;
a:=b;
b:=c;
end;
writeln (fo,a);
end;
close(fi);
close(fo);
end.