Cod sursa(job #242982)

Utilizator cheery_g1rlHaller Emanuela cheery_g1rl Data 11 ianuarie 2009 17:04:02
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.75 kb
var f,g:text;
    a,b,c,d,x,y,i,t:longint;
procedure euclid_extins(a,b:longint; var d,x,y:longint);
        var xx,yy:longint;
        begin
          if b=0 then begin d:=a; x:=1; y:=0; end
                 else begin
                        euclid_extins(b,a mod b,d,xx,yy);
                        x:=yy; y:=xx-yy*(a div b);
                      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);
    euclid_extins(a,b,d,x,y);
    if c mod d<>0 then writeln(g,'0 0')
                  else
                     begin
                       writeln(g,x*(c div d),' ',y*(c div d));
                     end;
  end;
close(f); close(g);
end.