Cod sursa(job #581320)

Utilizator gicu_01porcescu gicu gicu_01 Data 13 aprilie 2011 23:51:50
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.56 kb
var a,b,c,x,y,d:int64;i,n:integer;
    f,g:text;

procedure euclid(a,b:int64;var d,x,y:int64);
var x0,y0:int64;
begin
 if b=0 then
  begin
   d:=a;
   x:=1;
   y:=0;
  end else
 begin
  euclid(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,n);
 for i:=1 to n do
  begin
   readln(f,a,b,c);
   euclid(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(g);
 close(f);
end.