Teste de Entrada de Dados

PROBLEMA: Elabore um algoritmo que receba uma entrada qualquer e verifique se é ou não uma entrada numérica.

Algoritmo:

algoritmo "ContaNumero"
var
   numero, aux: inteiro

inicio
   escreva ("Digite um número: ")
   Leia (numero)
   
   aux := asc(carac(numero))

   se aux = 0 entao
      escreval("Não é um número!")
   senao
      escreval("É um número!")
   fimse

fimalgoritmo

—

^{*Atualizado em 15 de maio de 2022}