Euromilhões

Ao vasculhar as minhas antigas pastas do meu tempo de aprendiz, descobri o enunciado de um exercício e a resolução que eu tinha feito.

O Euromilhões é, de momento, o jogo de lotaria mais famoso e jogado na Europa. Existem métodos matemáticos para determinar quantas combinações existem. O objectivo deste exercício é a utilização de ciclos for encadeados para descobrir o número de combinações existentes. Relembre que a chave é composta por 5 números, de 1 a 50, e 2 estrelas, de 1 a 11.

Este programa já está adaptado para as novas regras do Euromilhões.

(* Adaptado às novas regras. *)
program milhoes2;
uses crt;

const ESTRELAS = 11;
      NUMEROS  = 50;

var a, b, c, d, e : integer; {numeros}
    f, g : integer;          {estrelas}
    cont : longint;          {contador}

begin
     writeln('MILHOES 2, por Igor Nunes, 2014.');
     readln;
     writeln('O programa esta a calcular todas as chaves do Euromilhoes. Aguarde...');
     writeln;
     for f:=1 to ESTRELAS-1 do
         for g:=f+1 to ESTRELAS do
             for a:=1 to NUMEROS-4 do
                 for b:=a+1 to NUMEROS-3 do
                     for c:=b+1 to NUMEROS-2 do
                         for d:=c+1 to NUMEROS-1 do
                             for e:=d+1 to NUMEROS do
                                 inc(cont);

     writeln('Chaves do Euromilhoes: ', cont);
     {$ifdef win32}
     write('[Enter] para fechar...');  {só para Windows}
     readln;
     {$endif}
end.

Escrito originalmente por: thoga31