Cod sursa(job #1968436)

Utilizator _Victor_Victor Ciobanu _Victor_ Data 17 aprilie 2017 18:09:14
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.62 kb
program Alg_Euclid_extins;
var f,g:text;
    T,i,a,b,c,d,x,y:longint;
procedure euclid(a,b:longint; var d,x,y:longint);
var x0,y0:longint;
begin
 if b=0 then
   begin
     d:=a;
     x:=1;
     y:=0;
   end
 else
   begin
     euclid(b,a mod b,d,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,t);
  for i:=1 to t do
    begin
      read(f,a,b,c);
      euclid(a,b,d,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.