Cod sursa(job #188104)

Utilizator dyzzy_dyzzyStanciulescu Daniel dyzzy_dyzzy Data 6 mai 2008 20:03:52
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.76 kb
var a,b,t,i,x,y,d,c:longint;
        f,g:text;
procedure cmmdc(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
        x0:=0;
        y0:=0;
        cmmdc(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
        readln(f,a,b,c);
        d:=0;
        x:=0;
        y:=0;
        cmmdc(a,b,d,x,y);
        if c mod d<>0  then
                writeln(g,'0 0')
        else
                writeln(g,x*(c div d),' ',y*(c div d));
        end;
close(f);
close(g);
end.