algoritmo "Aula11"
var numero,sucessor,antecessor:inteiro
inicio
escreva("Digite um número inteiro...:")
leia(numero)
antecessor:=numero-1
sucessor:=numero+1
escreval("O sucessor de",numero," é",sucessor)
escreval("O antecessor de",numero," é",antecessor)
fimalgoritmo
Nenhum comentário:
Postar um comentário