TEXT   24
Código compartilhado do Portugol Webstudio
Guest on 19th November 2021 08:26:59 PM


  1. programa {
  2.         funcao inicio() {
  3.                 inteiro n1, opcao
  4.                 escreva("Informe o valor\n")
  5.                 leia(n1)
  6.                 escreva("Voce pretende  identificar se o numero é:\n")
  7.                 escreva("OPcao 1: Par  ou impar:\n")
  8.                 escreva("Opcao 2: Positivo, negativo ou 0: \n")
  9.                 leia(opcao)
  10.                 escolha(opcao)
  11.                 {
  12.                     caso 1:
  13.                     se (n1 % 2 == 0)  
  14.                     {
  15.                         escreva("Numero par")
  16.                     }
  17.                     senao
  18.                     {
  19.                         escreva("Numero impar")
  20.                     }
  21.                     pare
  22.                     caso 2:
  23.                     se (n1 > 0)
  24.                     {
  25.                         escreva("Positivo")
  26.                     }
  27.                     senao se (n1 < 0)
  28.                     {
  29.                         escreva("Negativo")
  30.                     }
  31.                     senao{
  32.                         escreva("Numero 0")
  33.                     }
  34.                     pare
  35.                     caso contrario:
  36.                     escreva("Opcao invalida")
  37.                 }
  38.         }
  39.  
Raw Paste

Login or Register to edit or fork this paste. It's free.