{* Сумма цифр в числе *}

REM basic

' Сумма цифр в числе


Dim a, chislo, s As Integer
INPUT "Введите число: ", chislo
a=chislo
Do
s=s+a Mod 10
a=a/10
a=INT(a)
Loop Until a=0
PRINT "Сумма цифр числа ",chislo ," равна: ", s
End