Cod sursa(job #476291)

Utilizator StigmaSimina Pitur Stigma Data 10 august 2010 16:33:54
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.62 kb
program euclid3;

var cmmdc,a,b,c,x,y:longint;
i,n:integer;
fin, fout:text;

procedure euclid_e(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_e(b,a mod b,d,x0,y0);
   x:=y0; y:=x0-(a div b)*y0;
   end;
end;




begin
assign(fin,'euclid3.in'); reset(fin);
assign(fout,'euclid3.out'); rewrite(fout);
readln(fin,n);
for i:=1 to n do
begin
readln(fin,a,b,c);
euclid_e(a,b,cmmdc,x,y);
if c mod cmmdc=0 then
writeln(fout,x*(c div cmmdc),' ',y*(c div cmmdc))
else writeln(fout,'0 0');
end;
close(fin);
close(fout);
end.