Pagini recente » Cod sursa (job #1928085) | Cod sursa (job #2104345) | Cod sursa (job #2572069) | Cod sursa (job #1683729) | Cod sursa (job #202119)
Cod sursa(job #202119)
program euclid_extins;
var t:word;
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;
procedure main;
var f,g:text; i,a,b,c,d,x,y:longint;
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 begin
x:=x * (c div d); y:=y*(c div d);
writeln(g,x,' ',y);
end
else writeln(g,'0 0');
end;
close(f); close(g);
end;
BEGIN
main;
END.