Pagini recente » Cod sursa (job #2736992) | Cod sursa (job #489037) | Cod sursa (job #15266) | Cod sursa (job #603223) | Cod sursa (job #678031)
Cod sursa(job #678031)
Program euclid_extins;
var fi,fo : text;
a,b,c,d,i,n,x,y:longint;
Procedure cmmdc3(a,b : longint; var d,x,y : longint);
var x0,y0:longint;
begin
if b=0 then begin
d:=a;
x:=1;
y:=0;
end
else begin
cmmdc3(b,a mod b,d,x0,y0);
x:=y0;
y:=x0-( a div b)*y0;
end;
end;
begin
assign(fi,'euclid3.in'); reset(fi); read(fi,n);
assign(fo,'euclid3.out'); rewrite(fo);
for i:=1 to n do begin
readln(fi,a,b,c);
cmmdc3(a,b,d,x,y);
if c mod d = 0 then writeln(fo,x*(c div d),' ',y*(c div d))
else writeln(fo,'0 0');
end;
close(fi); close(fo);
end.