Cod sursa(job #860389)
| Utilizator |  Tiplea Stefan tziplea_stefan |
Data | 20 ianuarie 2013 12:54:14 |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 60 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.36 kb |
Program algoritm;
var
a,b,i,n,r:longint;
cin,cout:text;
begin
assign(cin,'euclid2.in');
reset(cin);
assign(cout,'euclid2.out');
rewrite(cout);
read(cin,n);
for i:=1 to n do
begin
read(cin,a,b);
r:=a mod b;
while r<>0 do
begin
a:=b;
b:=r;
r:=a mod b;
end;
writeln(cout,b);
end;
close(cin);
close(cout);
end.
