Pagini recente » Istoria paginii utilizator/dead_knight | Monitorul de evaluare | Diferente pentru planificare/sedinta-20090316 intre reviziile 28 si 42 | Diferente pentru utilizator/noguchiaq4r intre reviziile 2 si 1 | Cod sursa (job #461455)
Cod sursa(job #461455)
program euclid;
var a,b,i,n,r:longint;
fin,fout:text;
begin
assign(fin,'euclid2.in'); reset(fin);
assign(fout,'euclid2.out'); rewrite(fout);
readln(fin,n);
for i:= 1 to n do begin
readln(fin,a,b);
while r<>0 do
r:= a mod b;
a:= b;
b:= r;
writeln(fout,b);
end;
close(fin);
close(fout);
end.