Cod sursa(job #760773)

Utilizator ctlin04UAIC.VlasCatalin ctlin04 Data 22 iunie 2012 21:21:20
Problema Algoritmul lui Euclid extins Scor 20
Compilator fpc Status done
Runda Arhiva educationala Marime 0.64 kb
Program euclid3;
 var t,x,y,c,d,i,a,b:longint;
     fi,fo:text;
procedure euclid(a,b:longint; var d,x,y:longint);
 var xo,yo:longint;
begin
 if b=0 then begin d:=a; x:=1; y:=0; end
 else begin {xo:=0; yo:=0;} euclid(b,a mod b,d,xo,yo); x:=yo; y:=xo-(a div b)*yo; end;
end;
begin
 assign(fi,'euclid3.in');
  assign(fo,'euclid3.out');
 reset(fi); rewrite(fo); readln(fi,t);
  for i:=1 to t do begin
                    readln(fi,a,b,c); d:=0;
                     euclid(a,b,d,x,y);
                    if (c mod d<>0) or (d=0) then writeln(fo,'0') else writeln(fo,(c div d)*x,' ',(c div d)*y);
                   end;
 close(fo);
end.