Ler um valor e escrever se é positivo ou negativo (considere o valor zero como positivo).
Este algorítimo foi feito no VisualG, portanto, para mais averiguações, consulte este software.
Algoritmo "VerificaNumero"
Var
Num: Inteiro
Inicio
Escreva("Digite o número para averiguação: ")
Leia(Num)
Se (Num >=0) entao
Escreva("O número", Num, " é positivo")
senao
Escreva("O número", Num, " é negativo")
FimSe
Fimalgoritmo
Para escrever sua resposta aqui, entre ou crie uma conta
Compartilhar