Cod sursa(job #152917)

Utilizator Clau2000GOREA CLAUDIU-CRISTIAN Clau2000 Data 9 martie 2008 22:00:45
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.74 kb
var A, B, C, x, y, d:int64;
i,t:longint;
   f,g:text;


function euclid(var x:int64; var y:int64; a,b:int64):int64;
var aux,x1,y1:int64;
begin
     if b=0 then
     begin
          x:=1;
          y:=0;
          aux:=a;
     end
        else
        begin
            aux:=euclid(x1,y1,b,a mod b);
            x:=y1;
            y:=x1-x*(a div b);
        end;
     euclid:=aux;
end;

BEGIN
   ASSIGN(F,'euclid3.in');
   ASSIGN(G,'euclid3.out');
   reset(f);
   rewrite(g);
   readln(f,t);
   for i:=1 to t do
   begin
        readln(f,a,b,c);
        d:=euclid(x,y,a,b);
        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.