Pagini recente » Cod sursa (job #732826) | Cod sursa (job #143330) | Cod sursa (job #2164471) | Cod sursa (job #283941) | Cod sursa (job #190963)
Cod sursa(job #190963)
var a,b,d,x,y,i,t,c : longint;
f,g : text;
procedure euclid(a,b : longint;var d :longint;var x :longint;var y :longint);
var x0,y0 : longint;
begin
if b=0 then
begin
d:=a;
x:=1;
y:=0;
end
else
begin
euclid(b,a mod b,d,x0,y0);
x:=y0;
y:=x0-(a div b)*y0;
end;
end;
begin
assign(f,'euclid3.in');reset(f);
assign(g,'euclid3.out');rewrite(g);
read(f,t);
for i:=1 to t do
begin
read(f,a,b,c);
euclid(a,b,d,x,y);
if c mod d<>0 then writeln(g,'0 0')
else
writeln(g,x*(c div d),' ',y*(c div d));
end;
close(g);
end.