Informe a nota N1: 9.4
Informe a nota N2: 11
Nota inválida. Informe a nota N2: 8.3
A média do aluno é: 8.85
O aluno foi aprovado

Informe a nota N1: 4.2
Informe a nota N2: 1.8
A média do aluno é: 3.0
O aluno reprovou direto.

Informe a nota N1: 5.7
Informe a nota N2: 6
A média do aluno é: 5.85
Informe a nota do exame: 7
A média do aluno com o exame é: 6.425
O aluno foi aprovado após o exame.

----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)

Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

// Como calcular a média de um aluno em Portugol
programa {
  funcao inicio() {
    // variáveis usadas na resolução do problema
    real n1, n2, media, exame

    // vamos ler a primeira nota
    escreva("Informe a nota N1: ")
    leia(n1)
    // a nota é válida?
    enquanto ((n1 < 0) ou (n1 > 10)) {
      escreva("Nota inválida. Informe a nota N1: ")
      leia(n1)
    }

    // vamos ler a segunda nota
    escreva("Informe a nota N2: ")  
    leia(n2)
    // a nota é válida?
    enquanto ((n2 < 0) ou (n2 > 10)) {
      escreva("Nota inválida. Informe a nota N2: ")
      leia(n2)
    }

    // vamos calcular a média do aluno
    media = (n1 + n2) / 2.0
    escreva("A média do aluno é: ", media, "\n")

    // o aluno foi aprovado?
    se (media >= 7.0) {
      escreva("O aluno foi aprovado\n")
    }
    // o aluno ficou de exame?
    senao {
      se ((media >= 3.5) e (media < 7.0)) {
        // vamos ler a nota do exame
        escreva("Informe a nota do exame: ")
        leia(exame)
        // a nota é válida?
        enquanto ((exame < 0) ou (exame > 10)) {
          escreva("Nota inválida. Informe a nota do exame: ")
          leia(exame)
        }

        // calcula a nota média
        media = (media + exame) / 2.0
        escreva("A média do aluno com o exame é: ", media, "\n")

        // o aluno foi aprovado após o exame?
        se (media >= 5.0) {
          escreva("O aluno foi aprovado após o exame.\n")
        }
        senao {
          escreva("O aluno foi reprovado após o exame.\n")
        }
      }
      senao {
        escreva("O aluno reprovou direto.\n")
      }
    }
  }
}

----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)

Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

// Como somar os dígitos de um número em Portugol
programa {
  funcao inicio() {
    inteiro numero, soma

    // inicia a soma como zero
    soma = 0

    // vamos pedir um número inteiro positivo
    escreva("Informe um número inteiro positivo: ")
    // lê o número informado
    leia(numero)

    // enquanto o número for diferente de 0
    enquanto (numero != 0) {
      // adiciona à soma o resultado da divisão do número por 10
      soma = soma + (numero % 10)
      // agora dividimos os número por 10 (divisão inteira) e continuamos
      numero = inteiro(numero / 10)
    }

    // e mostramos o resultado
    escreva("A soma dos dígitos é: ", soma)
  }
}

Numeros primos entre 2 e 100: 
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97

----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)

Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

programa {
  funcao inicio() {
    // limite dos números primos (incluindo)
    inteiro limite = 100
    logico primo

    // Lembre-se! O número 1 não é primo
    escreva("Numeros primos entre 2 e " + limite + ":\n")
  
    // laço que percorre os valores de 2 até o limite desejado
    para (inteiro i = 2; i <= limite; i++) {
      primo = verdadeiro
                       
      // se o valor de i for 7, a variável j do laço contará
      // de 2 até 7 / 2 (divisão inteira), ou seja, 3. Se o 
      // módulo de 7 por qualquer um dos valores neste intervalo 
      // for igual a 0, então o número não é primo
      para (inteiro j = 2; j <= (i / 2); j++) {
        se (i % j == 0) {
          primo = falso // não é primo
          pare
        }
      }
    
      se (primo == verdadeiro) {
        escreva(i, " ")
      }
    }
  }
}

Digite um número a ser localizado: 8

O número 8 aparece nas seguintes posições:

[8] posição => 5
[8] posição => 22
[8] posição => 26

O número 8 apareceu => 3 vez(es).

----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)

Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

programa {
  // vamos incluir a biblioteca de utilidades
  inclua biblioteca Util --> u
	
  funcao inicio() {
    // vamos declarar as variáveis necessárias
    inteiro numeros[30]
    inteiro chave, vezes = 0

    // vamos sortear 30 números de 1 até 15 (incluindo os dois)
    para (inteiro i = 0; i < 30; i++) {
      numeros[i] = u.sorteia(1, 15)
    }

    // vamos pedir para o usuário informar a chave e vamos verificar em
    // quais posições essa chave foi encontrada
    escreva("Digite um número a ser localizado: ")
    leia(chave)
		
    escreva("\nO número " + chave + " aparece nas seguintes posições:")
    escreva("\n")
		
    para (inteiro i = 0; i < 30; i++) {
      se (numeros[i] == chave) {
        // registra a quantidade de vezes
        vezes = vezes + 1
        escreva("\n[" + numeros[i] + "]" + " posição => " + i)
      }
    }

    // agora mostramos quantas vezes o número pesquisado apareceu
    escreva("\n\nO número " + chave + " apareceu => " + vezes + " vez(es).")
    escreva("\n")
  }
}

Informe a potência da lâmpada (em watts): 100
Informe a largura do cômodo (em metros): 6
Informe o comprimento do cômodo (em metros): 4
Serão necessárias 4 lâmpadas.

----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)

Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

programa {
  // vamos incluir a biblioteca Tipos
  inclua biblioteca Tipos --> tp
  
  funcao inicio() {
    // variáveis usadas na resolução do problema
    real potencia_lampada, largura_comodo, comprimento_comodo
    real area_comodo, potencia_total
    inteiro quant_lampadas
 
    // vamos ler a potência da lâmpada   
    escreva("Informe a potência da lâmpada (em watts): ")
    leia(potencia_lampada)
    
    // vamos ler a largura do cômodo
    escreva("Informe a largura do cômodo (em metros): ")
    leia(largura_comodo)
 
    // agora vamos ler o comprimento do cômodo
    escreva("Informe o comprimento do cômodo (em metros): ")
    leia(comprimento_comodo)

    // agora vamos calcular a área do cômodo
    area_comodo = largura_comodo * comprimento_comodo

    // calculamos a potência total necessária para iluminar
    // todo o cômodo
    potencia_total = area_comodo * 18

    // e finalmente calculamos a quantidade de lâmpadas necessárias
    quant_lampadas = tp.real_para_inteiro(potencia_total / potencia_lampada)

    // será necessário no mínimo uma lâmpada
    se (quant_lampadas == 0) {
      quant_lampadas = quant_lampadas + 1
    }

    // e mostramos o resultado
    escreva("Serão necessárias ", quant_lampadas, " lâmpadas.")
  }
}

----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)

Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

programa {
  // vamos importar a biblioteca Texto
  inclua biblioteca Texto --> tx
  
  funcao inicio() {
    // vamos criar uma frase
    cadeia frase = "Gosto de programar em Portugol"
    // vamos criar uma sub-cadeia
    cadeia palavra = "Portugol"

    // vamos verificar se a sub-cadeia está contida na cadeia
    se (tx.posicao_texto(palavra, frase, 0) != -1) {
      escreva("A substring está contida na string")   
    }
    senao {
      escreva("A substring não está contida na string") 
    }
  }
}

----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)

Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

programa {
  // vamos importar a biblioteca Texto
  inclua biblioteca Texto --> tx
  
  funcao inicio() {
    cadeia palavra = "PORTUGOL"
    caracter letra = tx.obter_caracter(palavra, 0)
    escreva("A letra retornada é: ", letra)
  }
}

----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)

Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

programa {
  // vamos importar a biblioteca Texto
  inclua biblioteca Texto --> tx
  
  funcao inicio() {
    cadeia palavra = "PORTUGOL"

    para (inteiro i = 0; i <= tx.numero_caracteres(palavra) - 1; i++) {
      caracter letra = tx.obter_caracter(palavra, i)
      escreva("A letra é: ", letra, "\n")
    }
  }
}

----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)

Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

programa {
  // vamos incluir a biblioteca Texto
  inclua biblioteca Texto --> texto
  
  funcao inicio() {
    // vamos declarar uma variável para guardar o nome de uma pessoa
    cadeia nome, nome_minusculo

    // vamos pedir para o usuário informar o seu nome
    escreva("Informe o seu nome: ")
    leia(nome)

    // vamos converter o nome para letras minúsculas
    nome_minusculo = texto.caixa_baixa(nome)

    // vamos mostrar o resultado
    escreva("O seu nome em letras minúsculas é: " + nome_minusculo)
  }
}

Informe o valor do carro sem desconto: 25000
Informe o ano do carro: 2010
Desconto concedido: 1750
Valor do carro com desconto: 23250
Deseja adicionar mais carros? [S, N]: S

Informe o valor do carro sem desconto: 30500
Informe o ano do carro: 1985
Desconto concedido: 3660
Valor do carro com desconto: 26840
Deseja adicionar mais carros? [S, N]: S

Informe o valor do carro sem desconto: 16800
Informe o ano do carro: 1990
Desconto concedido: 2016
Valor do carro com desconto: 14784
Deseja adicionar mais carros? [S, N]: N

Total de carros com ano até 2000: 2
Total geral a pagar: 64874

----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)

Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

programa {
  funcao inicio() {
    // variáveis usadas na resolução do problema
    real valor_carro, valor_desconto, valor_carro_desconto
    real total_geral
    inteiro ano
    inteiro total_carros_ano_2000
    caracter resposta
    
    // vamos inicializar os valores de algumas variáveis
    total_geral = 0
    total_carros_ano_2000 = 0

    // repete até que o usuário informe o valor "N"
    faca {
      // vamos ler o valor do carro sem desconto
      escreva("\nInforme o valor do carro sem desconto: ")
      leia(valor_carro)
      
      // vamos ler o ano do carro
      escreva("Informe o ano do carro: ")
      leia(ano)

      // o ano é menor ou igual a 2000
      se (ano <= 2000) {
        valor_desconto = valor_carro * (12.0 / 100.0)
        // vamos somar mais este carro
        total_carros_ano_2000 = total_carros_ano_2000 + 1
      }
      senao {
        valor_desconto = valor_carro * (7.0 / 100.0)
      }

      // calculamos o valor do carro com o desconto
      valor_carro_desconto = valor_carro - valor_desconto
      escreva("Desconto concedido: ", valor_desconto)
      escreva("\nValor do carro com desconto: ", valor_carro_desconto)

      // somamos mais este valor ao total geral
      total_geral = total_geral + valor_carro_desconto

      // perguntamos se o usuário deseja adicionar mais carros
      escreva("\nDeseja adicionar mais carros? [S, N]: ")
      leia(resposta)
    } enquanto((resposta != 'N') e (resposta != 'n'))  

    // mostramos os resultados
    escreva("\nTotal de carros com ano até 2000: ", total_carros_ano_2000)
    escreva("\nTotal geral a pagar: ", total_geral)
  }
}

<p id="elem">Veja esse texto.</p>