total_alunos <- 0 escreva("Digite o código do aluno (ou 0 para encerrar): ") leia(codigo_aluno) enquanto codigo_aluno <> 0 faca ...

total_alunos <- 0 escreva("Digite o código do aluno (ou 0 para encerrar): ") leia(codigo_aluno) enquanto codigo_aluno <> 0 faca escreva("Digite a primeira nota do aluno: ") leia(nota1) escreva("Digite a segunda nota do aluno: ") leia(nota2) escreva("Digite a terceira nota do aluno: ") leia(nota3) media <- (nota1 + nota2 + nota3) / 3 escreva("A média do aluno de código ", codigo_aluno, " é: ", media) total_alunos <- total_alunos + 1 escreva("Digite o código do próximo aluno (ou 0 para encerrar): ") leia(codigo_aluno) fimenquanto escreva("Total de alunos calculados: ", total_alunos) fimalgoritmo