Cod sursa(job #838744)
Utilizator | Tatomir Alex atatomir | Data | 20 decembrie 2012 14:06:42 |
---|---|---|---|
Problema | Algoritmul lui Euclid | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.54 kb |
var x,y,t:int64;
f,fo:text;
ta:longint;
i:longint;
begin
assign(f,'euclid2.in');reset(f);
readln(f,t);
assign(fo,'euclid2.out');
rewrite(fo);
for i := 1 to t do
begin
readln(f,x,y);
if (x=0)or (y=0) then writeln(fo,'0')
else
begin
{if x <> y then
repeat
if x<y then
y := y -x
else
x := x - y;
until x=y ;
writeln(fo,x);}
while y mod x <>0 do
begin
y := t mod x;
ta := x;
x := y;
y := ta;
end;
writeln(fo,y);
end;
end;
close(fo);close(f);
end.