Olá! O programinha que escrevi só gera as combinações da lotofácil. Para as demais loterias existem muitos mais possibilidades. Os arquivos gerados são muito grandes e fica praticamente inviável manipulá-los, a não ser que fossem gerados já filtrados. Por exemplo, para a lotomania parei o programa quando já tinha escrito 30 GB e acho que para todas as combinações o arquivo é bem maior. O programa em fortran fica: PROGRAM Lotofacil INTEGER j INTEGER b,b1,b2,b3,b4,b5,b6,b7,b8 INTEGER b9,b10,b11,b12,b13,b14,b15 CHARACTER nome1*100, nome2*100 j=0 write(*,*) 'Nome do arquivo para salvar?' read(*,*) nome2 OPEN(UNIT=1,FILE= nome2) Do b1=1,11 Do b2=b1+1,12 Do b3=b2+1,13 Do b4=b3+1,14 Do b5=b4+1,15 Do b6=b5+1,16 Do b7=b6+1,17 Do b8=b7+1,18 Do b9=b8+1,19 Do b10=b9+1,20 Do b11=b10+1,21 Do b12=b11+1,22 Do b13=b12+1,23 Do b14=b13+1,24 Do b15=b14+1,25 j=j+1 write(1,32) j,b1, b2, b3, b4,b5,b6, : b7,b8,b9,b10,b11,b12,b13,b14,b15 32 format(i7,15(1x,i2)) ENDDO ENDDO ENDDO ENDDO ENDDO ENDDO ENDDO ENDDO ENDDO ENDDO ENDDO ENDDO ENDDO ENDDO ENDDO Close(unit=1) write(*,*) "FIM" stop end Até mais.