Pagini recente » Cod sursa (job #39740) | Cod sursa (job #785506) | Cod sursa (job #2186656) | Cod sursa (job #2829877) | Cod sursa (job #573614)
Cod sursa(job #573614)
var c, d, xx, yy, a, b:int64;
i, t:longint;
f, g:text;
procedure euclid (aa, bb:int64; var dd, x, y:int64);
var x0, y0:int64;
begin
if bb = 0 then
begin
dd:=aa;
x:=1;
y:=0;
end
else
begin
euclid (bb, aa mod bb, dd, x0, y0);
x:=y0;
y:=x0-(aa div bb)*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
readln (f, a, b, c);
euclid (a, b, d, xx, yy);
if c mod d <> 0 then writeln (g, '0 0')
else writeln (g, xx*c div d, ' ', yy*c div d);
end;
close (f); close (g);
end.