与えられた数字のケタ数
Posted feedbacks - FORTRAN
なんかFortranがようやく分かってきた。
1 2 3 4 5 6 7 8 | INTEGER i
INTEGER keta
read(*, *) i
keta = INT(ALOG10(FLOAT(i))) + 1
write(*, *) '桁数:', keta, ' 最大桁:', 10 ** (keta - 1)
end
|


susu
#3396()
Rating0/0=0.00
このお題はsusuさんの投稿です。ご投稿ありがとうございます。
[ reply ]