challenge 与えられた数字のケタ数

与えられた数字のケタ数と、最大桁の位を求めてください。
数字が2469なら4桁で最大桁は1000の位です。
600なら3と100、1なら1と1です。

このお題はsusuさんの投稿です。ご投稿ありがとうございます。

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

Index

Feed

Other

Link

Pathtraq

loading...