Advertisement
Guest User

Untitled

a guest
Sep 16th, 2019
127
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.27 KB | None | 0 0
  1. algoritmo "ex04_repREF"
  2. // Renato ex04_repeticaoREFORÇO
  3.  
  4. var
  5. entrada: real
  6.  
  7. inicio
  8.  
  9. escreval("Informe a senha:")
  10. leia(entrada)
  11.  
  12. enquanto (entrada)<>(2002) faca
  13. escreval("Senha Invalida")
  14. leia(entrada)
  15. fimenquanto
  16.  
  17. escreval("Acesso permitido")
  18.  
  19.  
  20. fimalgoritmo
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement