Faça um algoritmo para extrair e exibir a parte inteira e a parte decimal de um número.

algoritmo "extrair e exibir a parte inteira e a parte decimal de um número"

var

nunint, nundec, num1 : real

Inicio

Escreva ("Entre com um número decimal: ")

leia (num1)

nunint <- int (num1)

nundec <- (num1-nunint)

Escreva ("A parte inteira é: ",nunint)

Escreva ("A parte decimal é: ",nundec:6:2)

fimalgoritmo