Pagini recente » Cod sursa (job #607267) | Cod sursa (job #2633854) | Cod sursa (job #760773)
Cod sursa(job #760773)
Program euclid3;
var t,x,y,c,d,i,a,b:longint;
fi,fo:text;
procedure euclid(a,b:longint; var d,x,y:longint);
var xo,yo:longint;
begin
if b=0 then begin d:=a; x:=1; y:=0; end
else begin {xo:=0; yo:=0;} euclid(b,a mod b,d,xo,yo); x:=yo; y:=xo-(a div b)*yo; end;
end;
begin
assign(fi,'euclid3.in');
assign(fo,'euclid3.out');
reset(fi); rewrite(fo); readln(fi,t);
for i:=1 to t do begin
readln(fi,a,b,c); d:=0;
euclid(a,b,d,x,y);
if (c mod d<>0) or (d=0) then writeln(fo,'0') else writeln(fo,(c div d)*x,' ',(c div d)*y);
end;
close(fo);
end.