Programa para acertar na chave do Euromilhões

[passarito]

O programa fornece uma séries de chaves em que uma delas é a chave certa do euromilhões

Program Euromilhoes;
Var
	Bola = array [1..6] of integer;
    Estrela = Array [1..2] of integer;

begin
	For Bola[1]:= 1 to 46 do
	   	For Bola[2]:= Bola[1]+1 to 47 do
    		For Bola[3]:= Bola[2]+1 to 48 do
    			For Bola[4]:= Bola[3]+1 to 49 do
    				For Bola[5]:= Bola[4]+1 to 50 do
                    	For Estrela[1]:= 1 to 11 do
	                    	For Estrela[2]:= Estrela[1]+1 to 12 do begin
                            	For b:= 1 to 6 do Write(bola[b]," ");
                                write(" - ");
                                For e:= 1 to 2 do write(estrela[e]," ");
                                writeln;
							end;
end.

😁

[nunopicado]

🤣🤣🤣

É garantido, uma delas é.

O truque é escolher qual.

[thoga31]

Venci com esta ferramenta. 10/10 usaria outra vez 😄

[nunopicado]

1 hora atrás, thoga31 disse:

Venci com esta ferramenta. 10/10 usaria outra vez 😄

Ganhaste o Euromilhões, @thoga31?
Olha que jeitoso! 😂😂

[thoga31]

... ganhei num sonho. Não conta? 😄 

[nunopicado]

Conta... Mas da outra forma é melhor! 😂

[passarito]

Em 28/09/2022 às 20:57, thoga31 disse:

... ganhei num sonho. Não conta? 😄 

Claro que conta, nunca ouviste dizer que "o sonho comanda a vida"? 😁