DEZENA CENTENA UNIDADE

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "semnome"
// Função :
// Autor :
// Data : 06/09/2017
// Seção de Declarações 
var
u,d,c,num,resto: inteiro
inicio
// Seção de Comandos 
Escreva("Digite um numero: ")
Leia(num)
c:=(num\100)
resto:=(num)%100
d:=(resto\10)
u:=resto%10
Escreval("Numero: ",num)
Escreval("CENTENA: ",c)
Escreval("DEZENA.: ",d)
Escreval("UNIDADE: ",u)
fimalgoritmo