Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- algoritmo "4_16"
- declare n, r, aux:inteiro;
- leia(n);
- aux <- n;
- r <- 0;
- enquanto (aux != 0) faca
- r <- r * 10 + (resto(aux,10));
- aux <- aux/10;
- fimenquanto
- se (r == n) entao
- escreval("capicua");
- senao
- escreval("Não capicua");
- fimse
- fimalgoritmo
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement