Cod sursa(job #213169)

Utilizator FllorynMitu Florin Danut Flloryn 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.