Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › 正整型数据的各位数相加！！

正整型数据的各位数相加！！

查看数: 11534 | 评论数: 2 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

1000

发布时间: 2020-4-16 08:17

正文摘要:

不知道大家能不能看清题目意思是从屏幕输入一个正整型数据，通过程序，在屏幕上显示这个数据各位数相加的结果，比如输入1234，就显示10. 我很懵啊，也没规定输入的正整型数据的位数，我该怎么编写程序啊？？？ ...

1000 发表于 2020-4-16 09:25:41

楚香饭发表于 2020-4-16 09:02
一直除10，直到小于10为止

[mw_shl_code=fortran,true]Program www_fcode_cn

谢谢大佬！！！！

楚香饭 发表于 2020-4-16 09:02:17

本帖最后由楚香饭于 2020-4-16 09:03 编辑

一直除10，直到小于10为止

[Fortran] 纯文本查看 复制代码

Program www_fcode_cn
  Implicit None
  integer :: a
  read(*,*) a
  write(*,*) getDecimalismSum(a)
  
contains

  Integer Function getDecimalismSum(x) result(s)
    Integer , intent(IN) :: x
    integer :: t
    t = abs(x)
    s = 0
    do
      s = s + mod(t,10)
      if( t < 10 ) exit
      t = t/10
    end do
  End Function getDecimalismSum
  
End Program www_fcode_cn

正整型数据的各位数相加！！

正文摘要:

回复