Cod sursa(job #1211772)

Utilizator RusuAlexeiRusu Alexei RusuAlexei Data 23 iulie 2014 12:03:37
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.65 kb
program euclid_extins;
  var t,i,a,b,c,x,y,z,d:longint;

function gcd(a,b:longint):longint;

  begin
    if b=0 then
      begin
        gcd:=a;
        x:=1;
        y:=0;
      end else
      begin
        gcd:=gcd(b, a mod b);
        z:=x;
        x:=y;
        y:=z-(a div b)*y;
      end;
  end;

begin
  assign(input,'euclid3.in');
  reset(input);
  assign(output,'euclid3.out');
  rewrite(output);

  readln(t);
  for i:=1 to t do
    begin
      readln(a,b,c);
      d:=gcd(a,b);
      if c mod d<>0 then writeln(0,' ',0)
                    else writeln(x*(c div d),' ',y*(c div d));
    end;
  close(output);
end.