Cod sursa(job #354804)

Utilizator edy225Edy Stefanita edy225 Data 9 octombrie 2009 16:16:30
Problema Algoritmul lui Euclid extins Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.61 kb
var n,a,b,c,d,x,y:longint;
f,g:text;
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);
readln(f,n);
while n<>0 do begin
      dec(n);
      readln(f,a,b,c);
      d:=0;
      x:=0;
      y:=0;
      euclid(a,b,d,x,y);
      if c mod d=0 then
         writeln(g,'0 0')
      else
          writeln(g,x*(c div d),y*(c div d));
end;
close(g);
end.