Cod sursa(job #760776)

Utilizator ctlin04UAIC.VlasCatalin ctlin04 Data 22 iunie 2012 21:33:15
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.62 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 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 then writeln(fo,'0',' ','0') else writeln(fo,(c div d)*x,' ',(c div d)*y);
                   end;
 close(fo);
end.