Cod sursa(job #202119)

Utilizator cypherMircea Grecu cypher Data 6 august 2008 10:08:05
Problema Algoritmul lui Euclid extins Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.68 kb
program euclid_extins;
var t:word;
	
	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;
	
	procedure main;
	var f,g:text; i,a,b,c,d,x,y:longint;
	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 begin
				x:=x * (c div d); y:=y*(c div d);
				writeln(g,x,' ',y);
			end
			else writeln(g,'0 0');
		end;
		close(f); close(g);
	end;
	
BEGIN
	main;
END.