Cod sursa(job #352855)
| Utilizator |  Craia Alexandru aleku |
Data | 3 octombrie 2009 16:29:11 |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 30 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.33 kb |
var f,f2:text;
i,t,a,b,r:integer;
begin
assign (f,'euclid2.in');
assign (f2,'euclid2.out');
reset (f);
rewrite (f2);
readln (f,t);
for i:=1 to t do
begin
read (f,a);
readln (f,b);
while (b<>0) do
begin
r:=a mod b;
a:=b;
b:=r;
end;
writeln (f2,a);
end;
close (f);
close (f2);
readln;
end.