Cod sursa(job #357067)
| Utilizator |  Marginean Bogdan Alexandru Patrunjelu |
Data | 17 octombrie 2009 20:40:03 |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.29 kb |
var a,b,r,t,i:integer;
in,out:text;
begin
assign(in,'euclid2.in'); reset(in);
assign(out,'euclid2.out'); rewrite(out);
readln(in,t);
for i:=1 to t do begin
readln(in,a,b);
while b <> 0 do begin
r:= a mod b;
a:=b;
b:=r;
end;
writeln(out,a);
end;
close(in); close(out);
end.
