Cod sursa(job #1419696)

Utilizator VandheerManPopescu Alin VandheerMan Data 16 aprilie 2015 10:41:06
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.85 kb
program euclidextins;

var
 a,b,c,i,x,y,d:longint;
 f,g:text;
 n:byte;

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

begin
 assign(f,'euclid3.in');
 reset(f);
 assign(g,'euclid3.out');
 rewrite(g);
 read(f,n);
 for i:=1 to n do
        begin
         read(f,a,b,c);
         d:=cmmdc(a,b,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.