Pagini recente » Cod sursa (job #1054658) | Cod sursa (job #1944045) | Cod sursa (job #709688) | Profil StarGold2 | Cod sursa (job #573605)
Cod sursa(job #573605)
var i, t, c, d, xx, yy, a, b:longint;
f, g:text;
procedure euclid (aa, bb:integer; var dd, x, y:longint);
var x0, y0:longint;
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.