Cod sursa(job #327913)

Utilizator levap1506Gutu Pavel levap1506 Data 30 iunie 2009 16:02:30
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.74 kb
program euclid3;
 var a,b:text;
  i,j,k,t,x,y,k1:longint;
  procedure euclid(i,j:longint; var k,x,y:longint);
   var x0,y0:longint;
   begin
    if (j=0)
      then
        begin
          k:=i;
          x:=1;
          y:=0;
        end else
        begin
          x0:=0; y0:=0;
          euclid(j, i mod j, k, x0,y0);
          x:=y0;
          y:=x0-(i div j)*y0;
        end;
   end;
  begin
   assign(a,'euclid3.in');
   assign(b,'euclid3.out');
   reset(a);
   rewrite(b);
   readln(a,t);
   for t:=1 to t do
    begin
     Readln(a,i,j,k);
     euclid(i,j,k1,x,y);
     if (k mod k1=0) then Writeln(b,x*(k div k1),' ',y*(k div k1)) else
                         Writeln(b,0,' ',0);

    end;
    close(b);
  end.