Advertisement
Guest User

AMIGO KOOOPA

a guest
May 26th, 2019
279
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Algoritmo "amigo koopa"
  2.  
  3. VAR
  4.  
  5. x:vetor[1..15] DE inteiro
  6. divisao:vetor[1..15] DE real
  7. soma:vetor[1..15] DE real
  8. i:inteiro
  9.  
  10. INICIO
  11.  
  12. PARA i DE 1 ATE 15 FACA
  13.     ESCREVA("Informe o valor da posição" ,i, ": " )
  14.     LEIA(x[i])
  15.  
  16.     SE (x[i] mod 2) > 0 ENTAO
  17.         soma[i] := x[i]+5
  18.         divisao[i] := x[i]/5
  19.         ESCREVAL (x[i], " + 5 = ", soma[i])
  20.         ESCREVAL (x[i], " / 5 = ", divisao[i])
  21.     SENAO
  22.         ESCREVAL (x[i], " não é ímpar! Finalizando execução...")
  23.         FIMALGORITMO
  24.     FIMSE
  25. FIMPARA
  26.  
  27. PARA i DE 1 ATE 15 FACA
  28.     ESCREVAL ("NUMERO => ",x[i], " || ",x[i], " + 5 = ",soma[i], " || ",x[i], " / 5 = ",divisao[i])
  29. FIMPARA
  30.  
  31. FIMALGORITMO
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement