Fortran95 输入一个3位整数，输出其各位数字的立方和

以下是Fortran95输入一个3位整数，输出其各位数字的立方和的程序：

program digit_cubes
implicit none

integer :: number, digit1, digit2, digit3, digit_cubes

! 获取用户输入
write(*,*) "Enter a three-digit integer:"
read(*,*) number

! 分离各位数字
digit1 = number / 100
digit2 = mod(number / 10, 10)
digit3 = mod(number, 10)

! 计算各位数字的立方和
digit_cubes = digit1**3 + digit2**3 + digit3**3

! 输出结果
write(*,*) "The sum of the cubes of the digits in ", number, " is ", digit_cubes

end program digit_cubes

这个程序要求用户输入一个三位整数，然后将其各位数字分离出来，计算各位数字的立方和，并将结果输出。在此程序中，我们使用了Fortran中的除法运算符（/）和取模运算符（mod）来分离各位数字，使用了幂运算符（**）来计算立方。