INTEGER i
	INTEGER keta

	read(*, *) i
	keta = INT(ALOG10(FLOAT(i))) + 1
	write(*, *) '桁数:', keta, ' 最大桁:', 10 ** (keta - 1)

	end