$_=<>;
$l=y///c-2;
/.../;
$d=int(($&+5)/10);
if($d>99){
	$d=10;
	++$l;
}
print int$d/10,".",$d%10,"*10^",$l;