自然数1到30中选取若干个互不相等的数，其和等于100的组合有多少个？请编写一段fortran代码来求解答案。，

以下是Fortran程序：

program combinations
implicit none
integer :: i, j, k, n, count
integer :: num(30)
count = 0
do i = 1, 30
   num(i) = i
end do
do n = 1, 15
   do i = 1, 30-n+1
      do j = i+1, 30-n+2
         do k = j+1, 30-n+3
            if (num(i) + num(j) + num(k) == 100) then
               count = count + 1
            end if
         end do
      end do
   end do
end do
write(*,*) count
end program combinations

程序中首先定义了变量i、j、k、n和count。数组num用于存储1到30中的自然数。

接着使用do循环将1到30的自然数存储在数组num中。

接下来使用三重循环枚举所有可能的组合，每次循环都判断当前选取的三个自然数之和是否等于100。如果是，则计数器count加1。

最后输出计数器count的值，即为符合条件的组合数量。