Определить, есть ли в заданном четырехзначном числе а цифры 5 и 8 - QBasic

Формулировка задачи:

люди решите задачи ((((( а то накрыло по полной 12 долгов 1)определить в qbasic есть ли в заданном четырехзначном числе а цифры 5 и 8

Решение задачи: «Определить, есть ли в заданном четырехзначном числе а цифры 5 и 8»

Листинг программы

INPUT a
FOR i = 1 TO 4
    IF a MOD 10 = 5 THEN f1 = 1
    IF a MOD 10 = 8 THEN f2 = 1
    a = a \ 10
NEXT
IF f1 = 1 AND f2 = 1 THEN PRINT "da" ELSE PRINT "net"

Объяснение кода листинга программы

В этом коде с помощью цикла for проверяется каждая цифра в числе. Если число делится на 10 без остатка (это 0, 10, 20 и т.д.), то проверяется следующая цифра. Если число делится на 10 без остатка и остаток равен 5, то устанавливается значение переменной f1 равное 1. Если число делится на 10 без остатка и остаток равен 8, то устанавливается значение переменной f2 равное 1. Затем число делится на 10, чтобы убрать последнюю цифру. Если значение переменной f1 равно 1 и значение переменной f2 равно 1, то выводится слово da, иначе выводится слово net.