Question

Escreva um programa que receba um número inteiro na entrada, calcule e imprima a soma dos dígitos deste número na saída

Answer 1

Resposta:

Programa "soma de algarismos"

var

x, soma: inteiro

inicio

soma ← 0

escreva (" Digite um número: ")

leia (x)

enquanto x<>0

soma← soma + (x% 10)

escreva ( "+ ",(x%10))

x ← (x/10)

fimenquanto

escreva (" = ", soma)

fim