Cod sursa(job #152788)

Utilizator AndreiDDiaconeasa Andrei AndreiD Data 9 martie 2008 19:38:30
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.63 kb
var f,g:text;
    t,i,a,b,c,d,x,y:longint;
procedure euclid(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
      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);
  read(f,t);
  for i:=1 to t do begin
      read(f,a,b,c);
      euclid(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.