Cod sursa(job #914130)
| Utilizator | Data | 13 martie 2013 21:48:48 | |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.48 kb |
program p1;
var fi,fo:text;
i,w:int64;
x,y:int64;
function cmd(a:int64; b:int64):int64;
begin
if b=0 then cmd:=a
else cmd:=cmd(b,a mod b);
end;
begin
assign(fi,'euclid2.in');
reset(fi);
readln(fi,w);
assign(fo,'euclid2.out');
rewrite(fo);
for i:=1 to w do begin
readln(fi,x,y);
if x>y then writeln(fo,cmd(x,y))
else writeln(fo,cmd(y,x));
end;
close(fo);
end.
