Cod sursa(job #737686)

Utilizator andrei_toaderToader Andrei Sorin andrei_toader Data 20 aprilie 2012 00:56:15
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.59 kb
program euclid;
var f,g:text;
    t,i:integer;
    a,b,c,d,x,y:longint;

procedure euclid (a,b:longint; var d,x,y:longint);
var x0,y0:longint;
begin
 if b=0 then
 begin
  x:=1; y:=0; d:=a;
 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.