Cod sursa(job #328379)

Utilizator ionutz32Ilie Ionut ionutz32 Data 1 iulie 2009 21:05:24
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.76 kb
var a,b,c,t,i,d,x,y:longint;
f,g:text;
procedure p(a2,b2:longint;var x2,y2:longint);
          var x0,y0:longint;
          begin
          if b2=0 then
             begin
             d:=a2;
             x2:=1;
             y2:=0;
             end
          else
              begin
              x0:=0;y0:=0;
              p(b2,a2 mod b2,x0,y0);
              x2:=y0;
              y2:=x0-(a2 div b2)*y0;
              end;
          end;
begin
assign(f,'euclid3.in');
assign(g,'euclid3.out');
reset(f);rewrite(g);
readln(f,t);
for i:=1 to t do
    begin
    readln(f,a,b,c);
    x:=0;y:=0;
    p(a,b,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.