Отыскать сумму цифр целого трехзначного числа и четырёхзначного вводимого с клавиатуры.

Сделал расчёт и суммы цифр в обоих числах, и сумму цифр первого плюс 2-ое число. Негодное удалите уж.

Подсчёт суммы цифр сделал самостоятельным от длины числа (хоть сколькозначные вводите, вплоть до максимального целого в Кумире).

алг

нач

цел а,б,н,ас=0,бс=0

лит ат,бт

вывод 'введите целое трёхзначное число: '

ввод а

вывод 'введите целое четырёхзначное число: '

ввод б

ат := цел_в_лит(а)

нц для н от 1 до длин(ат)

ас := ас + Цел(ат[н],0)

кц

вывод 'сумма цифр трёхзначного= ', ас, нс

бт := цел_в_лит(б)

нц для н от 1 до длин(бт)

бс := бс + Цел(бт[н],0)

кц

вывод 'сумма цифр четырёхзначного= ', бс, нс

вывод 'сумма цифр трёхзначного плюс четырёхзначное число= ', ас+б

кон