Cod sursa(job #841664)

Utilizator RusuAlexeiRusu Alexei RusuAlexei Data 24 decembrie 2012 16:28:06
Problema Algoritmul lui Euclid extins Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.7 kb
program extended_euclid;
  var t,i,j:byte;
      a,b,c,a1,b1,d,x,y:longint;
      f,f2:text;
begin
  assign(f,'euclid3.in');
  reset(f);
  readln(f,t);
  assign(f2,'euclid3.out');
  rewrite(f2);
  for i:=1 to t do
    begin
      readln(f,a,b,c);
      a1:=a;b1:=b;
      while (a1<>0)and(b1<>0) do
        if b1>a1 then b1:=b1 mod a1 else a1:=a1 mod b1;
      if a1=0 then d:=b1 else d:=a1;
      if c mod d<>0 then writeln(f2,0,' ',0) else
        begin
          a:=a div d;
          b:=b div d;
          c:=c div d;
          for j:=1 to a do if (c-b*j) mod a =0 then begin x:=(c -b*j) div a; y:=j;end;
          writeln(f2,x,' ',y);
        end;

    end;
     close(f2);
  end.