алг

нач цел a,n

ввод n

a:=0

нц пока n>0

a:=a+mod(n,10)

n:=div(n,10)

кц

вывод "Сумма цифр числа = ", a

если mod(a,2) = 0

то

вывод "Сумма цифр числа четная"

иначе

вывод " cумма цифр числа нечетная"

все

кон