REM Анализ "счастливого" билета
DECLARE FUNCTION LUCK (M AS LONG)
INPUT "Введите номер билета "; N&
IF LUCK(N&) = 1 THEN
PRINT "Радуйтесь - счастливый"
ELSE
PRINT "Нет счастья в жизни"
END IF
END
FUNCTION LUCK (M AS LONG)
REM Подсчет и сравнение сумм старших и младших цифр M
REM Если суммы совпадают, то LUCK=1
DIM A(6)
LUCK = 0
IF M < 0 OR M > 999999 THEN
PRINT "luck : недопустимый аргумент": EXIT FUNCTION
END IF
FOR I = 0 TO 5
A(I) = M MOD 10: ' Выделение очередной цифры
M = (M - A(I)) / 10: ' Удаление обработанной цифры
NEXT I
IF (A(0) + A(1) + A(2) = A(3) + A(4) + A(5)) THEN LUCK = 1
END FUNCTION