Algoritmo

clear;

clc;

qtd=input("Escolha a quantidade de jogadores     "); // quantidade de jogadores

num=input("Escolha com quantos numero ganha o jogador    ")

// Gera os cartoes dos apostadores

for jogador=1:qtd

    for numero=1:6

        cartoes(jogador,numero)=int(rand()*60);

          end

end

//disp(cartoes);

// simula o sorteio da mega sena

for i=1:num

    resultado(i)=int(rand()*60);

end

//mostra o sorteio

for i=1:num

    mprintf("\n sorteando.......");

    xpause(50000);

    mprintf("\n Bola numero %d = %d ",i,resultado(i));

    end

// verificando Ganhadores

//contador para verificar ganhador com 6 numeros

for jogador=1:qtd

    ganhador=0;

    for numero=1:num

        if resultado(numero)==cartoes(jogador,numero) then

            ganhador=ganhador+1;

        end

        if ganhador==num then

            mprintf("\n o jogador numero %d ganhou com 6 numeros...!!!",jogador);

            mprintf("\n Cartão do jogador %d",jogador);

            disp(cartoes(jogador,:));

        elseif ganhador==num-1 then

            mprintf("\n o jogador numero %d ganhou com 5 numeros...!!!",jogador);