алг нач цел а, i, sum лит s лог успех вывод "Введите целое число: " ввод а sum:=0 s:=цел_в_лит(а) нц для i от 1 до длин(s) sum:=sum + лит_в_цел(s[i], успех) кц вывод "Сумма цифр числа равна ", sum кон