Cod sursa(job #190963)

Utilizator tamas_iuliaTamas Iulia tamas_iulia Data 24 mai 2008 16:55:28
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.6 kb
var a,b,d,x,y,i,t,c : longint;
    f,g : text;
procedure euclid(a,b : longint;var d :longint;var x :longint;var 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,'0 0')
      else
        writeln(g,x*(c div d),' ',y*(c div d));
  end;
close(g);
end.