Cod sursa(job #1131886)
Utilizator | cont-vechi azkaban | Data | 1 martie 2014 22:26:52 |
---|---|---|---|
Problema | Algoritmul lui Euclid | Scor | 60 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 1.23 kb |
Program euclid2;
var a,b,r : int64;
t : longint;
begin
assign(input,'euclid2.in'); reset(input);
assign(output,'euclid2.out'); rewrite(output);
readln(t);
while not eof do begin readln(a,b);
if a>b then begin
while b mod a<>0 do begin
r:=a ;
a:=b;
b:=r mod b;
end;
writeln(a);
end
else begin while a mod b<>0 do begin
r:=b;
b:=a;
a:=r mod a;
end;
writeln(b);
end;
end;
close(input); close(output);
end.