Cod sursa(job #1209216)

Utilizator mirelabocsabocsa mirela mirelabocsa Data 17 iulie 2014 12:43:28
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.58 kb
program mire;
var f,g:text;
n,i:integer;
   a,b,c,x,y,d:int64;
procedure inv(var x,y,d:int64; a,b:int64);
var aux:int64;
begin
 if b=0 then
   begin
     x:=1;
     y:=0;
     d:=a;
   end
 else
  begin
    inv(x,y,d,b,a mod b);
    aux:=x;
    x:=y;
    y:=aux-a div b*y;
  end;
end;
begin
assign(f,'euclid3.in');
reset(f);
assign(g,'euclid3.out');
rewrite(g);
 readln(f,n);
 for i:=1 to n do
 begin
  readln(f,a,b,c);
 inv(x,y,d,a,b);
 if c mod d<>0 then
   writeln(g,'0 0')
  else
  writeln(g,x*(c div d),' ',y*(c div d));
end;
close(f);
close(g);
end.