Cod sursa(job #590559)

Utilizator RainDropsMDMinzelevschi Igori RainDropsMD Data 18 mai 2011 11:53:12
Problema Algoritmul lui Euclid extins Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.77 kb
var f,g:text;
    a,b,c,d,x,y:int64;
    i,n:longint;

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

Begin
 assign(f,'euclid3.in');
 assign(g,'euclid3.out');
 reset(f);
 rewrite(g);
 readln(f,n);
 for i:=1 to n do begin
                   readln(f,a,b,c);
                   cmmdc(a,b,d,x,y);
                   if c mod d <> 0 then writeln(g,'0 0')
                                   else writeln(g,x*(c div d),' ',y*(c div d));
                  end;
 close(f);
 close(g);
End.