Cod sursa(job #1297609)

Utilizator VandheerManPopescu Alin VandheerMan Data 22 decembrie 2014 10:15:01
Problema Algoritmul lui Euclid extins Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.87 kb
program euclidextins;

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

 function cmmdc(a,b:longint):longint;
        begin
         if a mod b=0 then cmmdc:=b
                else cmmdc:=cmmdc(b,a mod b);
        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
            if ((c-d*a) mod b=0) then writeln(g,d,' ',(c-d*a) div b)
                                         else
                                          begin
                                           e:=(c-a) div b;
                                           writeln(g,(c-b*e)div a,' ',e);
                                          end;
         end;
 close(f);
 close(g);
 end.