Cod sursa(job #291182)

Utilizator danalex97Dan H Alexandru danalex97 Data 29 martie 2009 14:51:24
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.92 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);
    if a=0 then  
    if c mod b=0 then  
    writeln(g,c div b, ' ',1)   
    else  
    writeln(g,0,' ',0)   
    else  
    if b=0 then  
    if c mod a=0 then  
    writeln(g,1,' ',c div a)   
    else  
    writeln(g,0,' ',0)  
    else  
    begin
      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;
close(f);
close(g);
end.