Cod sursa(job #238100)

Utilizator DanielGGlodeanu Ioan Daniel DanielG Data 31 decembrie 2008 16:35:31
Problema Algoritmul lui Euclid extins Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.62 kb
var t, a, b, c, d,i,x,y:longint;
f,g:text;
function cmmdc(a,b:longint; var x,y:longint):longint;
var x0,y0:longint;
begin
if b=0 then
       begin
       cmmdc:=a;
       x:=1;
       y:=0;
       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(f);
readln(f,t);
for i:=1 to t do
    begin
    read(f,a,b,c);
    d:=cmmdc(a,b,x,y);
    if c mod d=0 then writeln(g,x*(c div d),' ',y*(c div d))
       else writeln(g,0,' ',0);
    end;
close(f);
close(g);
end.