Примеры программ на языке QBASIC

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


REM Суммирование десятичных цифр числа
DECLARE FUNCTION SUMDIG (N&)
CLS
INPUT "Введите целое число"; M&
K = SUMDIG(M&)
PRINT "Сумма его цифр = "; K
END

FUNCTION SUMDIG (N&)
IF N& < 0 THEN N& = -N&: ' Смена знака у отрицательного числа
RESULT = 0
DO
  RESULT = RESULT + (N& MOD 10&): ' Накопление суммы цифр
  N& = (N& - (N& MOD 10&)) / 10&: ' Удаление обработанной цифры
LOOP WHILE N& <> 0
SUMDIG = RESULT
END FUNCTION