Question

Escreva um algoritmo para ler um valor e escrever o seu antecessor...
urgente!!! alguém me ajuda ????

Answer 1

Acredito que esteja usando visualg ainda, ent vamos em portugol msm

Algoritmo
Var
num: inteiro
result: inteiro
Inicio
Escreva(" digite um numero")
leia(num)
Se (num>=0) então
result:= num -1
escreva("seu antecessor é:" result)
Senao
escreva("Por favor, digite um numero positivo")
fimse
fimalgoritmo