Question

Pseudocode ou VisualG com print do código e execução.

Answer 1

Resposta:

Algoritmos para colar no VisualG, meu print foi excluído

Explicação:

1.

Algoritmo "ClassificaNumero"

Var

  numero: real,

  par, positivo: logico

Inicio

  escreva("Digite um numero:")

  leia(numero)

  par <- numero mod 2 = 0

  positivo <- numero > 0

  se par entao

     escreva("O número é par")

  senao

       escreva("O número é impar")

  fimse

  se positivo entao

     escreva(" e positivo.")

  senao

       escreva(" e negativo.")

  fimse

Fimalgoritmo

2.

Algoritmo "VerifcaAprovacaoAluno"

Var

  notas: vetor[1..3] de real,

  total, media: real

  i: inteiro

Inicio

  para i de 1 ate 3 passo 1 faca

       escreva ("Digite a nota:")

       leia(notas[i])

       total <- total + notas[i]

  fimpara

  media <- total/3

  se media >= 7 entao

     escreva("O aluno foi aprovado")

     se media = 10 entao

        escreva(" com louvor")

     fimse

     escreva(".")

  senao

       escreva("O aluno foi reprovado.")

  fimse

Fimalgoritmo