Pagini recente » Cod sursa (job #2079483) | Cod sursa (job #751454) | Cod sursa (job #2206546) | Cod sursa (job #1021791) | Cod sursa (job #172276)
Cod sursa(job #172276)
program euclid3;
var f,g:text;
n,a,b,i:longint;
x,y,d,c:longint;
procedure euclid(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
euclid(b,a mod b, d, x0,y0);
x:=y0;
y:=x0-(a div b)*y0;
end;
end;
begin
assign(f,'euclid3.in');reset(f);
assign(g,'euclid3.out');rewrite(g);
readln(f,n);
for i:=1 to n do
begin
readln(f,a,b,c);
euclid(a,b,d,x,y);
if c mod d=0 then
writeln(g,x*(c div d),' ',y*(c div d))
else writeln(g,'0 0');
end;
close(f);
close(g);
end.