Pagini recente » Cod sursa (job #2465955) | Cod sursa (job #614893) | Cod sursa (job #2090106) | Cod sursa (job #3165166) | Cod sursa (job #164716)
Cod sursa(job #164716)
program euclid3;
var a,b,c,d,x,y : longint;
i,t : integer;
f,g : text;
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,t);
for i := 1 to t 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.