Cod sursa(job #291176)
Utilizator | Dan H Alexandru danalex97 | Data | 29 martie 2009 14:41:47 |
---|---|---|---|
Problema | Algoritmul lui Euclid extins | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.64 kb |
program eucild_extins;
var a,b,c,t,i,r,m,n,d:longint;
ok:boolean;
f,g:text;
begin
assign(f,'euclid3.in');
reset(f);
assign(g,'euclid3.out');
rewrite(g);
read(f,t);
for i:=1 to t do
begin
read(f,a,b,c);
m:=b;
n:=a;
r:=1;
while r<>0 do
begin
r:=m mod n;
m:=n;
n:=r;
end;
d:=m;
if c mod d<>0 then
writeln(g,'0 0')
else
begin
a:=a div d;
b:=b div d;
c:=c div d;
m:=1;
while (c-a*m) mod b<>0 do inc(m);
n:=(c-a*m) div b;
writeln(g,m,' ',n);
end;
end;
end.