Pagini recente » Cod sursa (job #3276789) | Cod sursa (job #804466) | Cod sursa (job #3254941) | Cod sursa (job #2854557) | Cod sursa (job #1968433)
Program EuclidExt;
type maxt = -1000000000 .. 1000000000;
maxc = -2000000000 .. 2000000000;
var d,a,b,x,y : maxt;
c: maxc;
t,i: 0..100;
f,g : text;
procedure euclid (a,b:maxt;var d,x,y : maxt);
var x0,y0 : maxt;
begin
if b = 0 then begin
x:=1;
y:=0;
d := A;
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');
assign(g,'euclid3.out');
reset(f);
rewrite(g);
readln(f,T);
for i:=1 to T do begin
read(f,a,b,c);
euclid(a,b,d,x,y);
if c mod d = 0 then
writeln(g,x*(c/d),' ',y*(c/D))
else
writeln(g,'0 0');
end;
close(f);
close(g);
end.