Cod sursa(job #152827)

Utilizator mihai_floreaFlorea Mihai Alexandru mihai_florea Data 9 martie 2008 20:30:21
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.67 kb
program Algoritmul_lui_Euclid_extins;
var f,g:text;
    t,a,b,c,x,y,i,d: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);
readln(f,t);
for i:=1 to t do
 begin
 readln(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.