Вероятность "счастливого билета" на Фортране

1. Выводит все "счастливые билеты".
2. Выводит количество "счастливых билетов"
3. Находит вероятность (n/1000000)

program bylet
 integer a1,a2,a3,a4,a5,a6,s1,s2,n
 n=0
   do a1=0,9
    do a2=0,9
      do a3=0,9      
        do a4=0,9        
          do a5=0,9        
            do a6=0,9            
              s1=a1+a2+a3
              s2=a4+a5+a6
               if (s1==s2) then
                 n=n+1
                 print*,a1,a2,a3,a4,a5,a6
               end if            
             end do          
           end do        
         end do      
       end do    
     end do  
   end do
  print*,'kolichestdo nomerov',n
  print*,'veroyatnost',n/1000000.
  pause

  end

Скачать (Яндекс.Диск)