Pagini recente » Cod sursa (job #1192055) | Cod sursa (job #1086626) | Cod sursa (job #1968346) | Cod sursa (job #879469) | Cod sursa (job #152917)
Cod sursa(job #152917)
var A, B, C, x, y, d:int64;
i,t:longint;
f,g:text;
function euclid(var x:int64; var y:int64; a,b:int64):int64;
var aux,x1,y1:int64;
begin
if b=0 then
begin
x:=1;
y:=0;
aux:=a;
end
else
begin
aux:=euclid(x1,y1,b,a mod b);
x:=y1;
y:=x1-x*(a div b);
end;
euclid:=aux;
end;
BEGIN
ASSIGN(F,'euclid3.in');
ASSIGN(G,'euclid3.out');
reset(f);
rewrite(g);
readln(f,t);
for i:=1 to t do
begin
readln(f,a,b,c);
d:=euclid(x,y,a,b);
if (c mod d<>0) then writeln(g,'0 0')
else writeln(g,x * C div d,' ',y * C div d);
end;
CLOSE(F);
CLOSE(G);
END.