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