Cod sursa(job #213169)
Utilizator | Data | 8 octombrie 2008 19:56:52 | |
---|---|---|---|
Problema | Algoritmul lui Euclid extins | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.66 kb |
program pascal;
var f,g:text;
t,a,b,c,i,d,x,y:longint;
procedure flo(a,b:longint; var d,x,y:longint);
var x0,y0:longint;
begin
if b=0 then
begin
x:=1;
y:=0;
d:=a;
end
else
begin
flo(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);
flo(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.