Cod sursa(job #164716)

Utilizator free2infiltrateNezbeda Harald free2infiltrate Data 24 martie 2008 18:44:39
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.67 kb
program euclid3;
var a,b,c,d,x,y : longint;
    i,t : integer;
    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,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.