program pku3100;
uses math;

var
	a,b,m,n:int64;
	x,y,z:double;

begin
	while true do
	begin
		readln(a,b);

        if a=0 then break;

	   	x:=a;
    	y:=b;
		y:=1.0/y;
        writeln(y);
		z:=power(x,y);
        writeln(z);

		m:=floor(z);
		n:=m+1;
        writeln(m,' ',n);
		x:=power(m,b);
		y:=power(n,b);
        writeln(x,' ',y);
        z:=a;
		if abs(x-a)>abs(y-a) then
    			writeln(n)
	   	else
    			writeln(m);
	end;
end.

• 它说没有math这个unit (0) Elysium 2007-07-19 14:02:28