Cod sursa(job #291172)

Utilizator danalex97Dan H Alexandru danalex97 Data 29 martie 2009 14:36:01
Problema Algoritmul lui Euclid extins Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.64 kb
program eucild_extins;
var a,b,c,t,i,r,m,n,d:longint;
    ok:boolean;
    f,g:text;
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);
      m:=b;
      n:=a;
      r:=1;
      while r<>0 do
        begin
          r:=m mod n;
          m:=n;
          n:=r;
        end;
      d:=m;
      if c mod d<>0 then
        writeln(g,'0 0')
      else
      begin
      a:=a div d;
      b:=b div d;
      c:=c div d;
      m:=1;
      while (c-a*m) mod b<>0 do inc(m);
      n:=(c-a*m) div b;
      writeln(g,m,' ',n);
      end;
  end;
end.