Cod sursa(job #1711948)

Utilizator medicinedoctoralexandru medicinedoctor Data 1 iunie 2016 17:36:25
Problema Algoritmul lui Euclid extins Scor 40
Compilator fpc Status done
Runda Arhiva educationala Marime 0.55 kb
var t,i,a,b,c,d,x,y:integer;


function gcd(a,b:integer; var x,y:integer):integer;
var x0,y0,d:integer;
begin
  if b=0 then begin x:=1; y:=0; gcd:=a; end else
  begin
    d:=gcd(b,a mod b, x0,y0);
    x:=y0;
    y:=x0- (a div b)*y0;
    gcd:=d;
  end;
end;

begin
  assign(input,'euclid3.in');
  assign(output,'euclid3.out');
  reset(input);
  rewrite(output);
  readln(t);
  for i:=1 to t do
  begin
    read(a,b,c);
    d:=gcd(a,b,x,y);
    if c mod d <>0 then writeln('0 0') else writeln(x*(c div d),' ',y*(c div d));
  end;
end.