Cod sursa(job #1299779)

Utilizator VandheerManPopescu Alin VandheerMan Data 23 decembrie 2014 21:03:31
Problema Algoritmul lui Euclid extins Scor 40
Compilator fpc Status done
Runda Arhiva educationala Marime 0.8 kb
program euclidextins;

var
t,i:byte;
d:integer;
a,b,c,x,y,xp,yp:longint;
f,g:text;

 function cmmdc(a,b:longint):longint;
        begin
         if a mod b=0 then
                        begin
                        xp:=1;
                        yp:=0;
                        cmmdc:=b;
                        end
                else cmmdc:=cmmdc(b,a mod b);
         x:=yp;
         y:=xp-(a div b)*yp;
         xp:=x;
         yp:=y;
        end;
begin
 assign(f,'euclid3.in');
 reset(f);
 readln(f,t);
 assign(g,'euclid3.out');
 rewrite(g);
 for i:=1 to t do begin
        readln(f,a,b,c);
        d:=cmmdc(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.