Dim a as Long
Dim b as String
Dim x1 as String
Dim x2 as String
Dim x3 as String
Dim y as Long
Примечание: Объявляем переменные. Переменная а - исходное, вводимое пользователем число.
Input a
Примечание: Вводим с клавиатуры нужное число
b=Str(a)
Примечание: Преобразуем значение переменной а в текст и запишем в переменную b
x1=Left(b,1)
x2=mid(b,2,1)
x3=Right(b,1)
Примечание: С помощью строковых функций скопируем в переменную х1 первый разряд числа, в переменную х2 - второй разряд числа, в переменную х3 - третий разряд числа.
y=val(x1)+val(x2)+val(x3)
Примечание: Преобразовываем каждый разряд в число и складываем их.
Print y