Определить есть ли в числе цифра 8 - QBasic

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

Здравствуйте уважаемые программисты помогите срочно с решением задач: Ветвления 1) Заданно трехразрядное число а с двумя разрадам в дробной части. Определить есть ли в этом числе цифра 8.

Простые циклы

1)Данно натуральное число n. Прибавить по еденице в старший и младший разряды этогочисла. 2)Вводиться последовательность ненулевыхчисел завершаемая нулем.Определить максимальное отрицательное число в данной последовательности

Массивы

1)Дана матрица целых чисел X(n,m). Упорядочить ее строки по возростанию сумм их элементов. Вывести исходную и полученную матрецы.Значения буквенных переменных задавать с клавиатуры. 2)Определить наибольший и наименьший элементы массива X(n).Вывести исходный массив эти элементы и их порядковые номера. Упорядочить массив X(n) по убыванию.Вывести полученный массив. Исходный массив элементов получить с помощю датчика случайных чисел.Значения буквенных переменных задавать с клавиатуры. Заранее спасибо. С уважением Алексей!

Решение задачи: «Определить есть ли в числе цифра 8»

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

CLS
INPUT a!
a = a! * 100
IF a \ 10000 = 8 OR a \ 1000 MOD 10 = 8 OR a \ 100 MOD 10 = 8 OR a \ 10 MOD 10 = 8 OR a MOD 10 = 8 THEN
PRINT "yes"
ELSE PRINT "no"
END IF

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

CLS - очистка экрана
INPUT a! - ввод числа с клавиатуры и присвоение его значения переменной a
a = a! * 100 - умножение числа на 100 для удобства работы с остатком от деления
IF a \ 10000 = 8 OR a \ 1000 MOD 10 = 8 OR a \ 100 MOD 10 = 8 OR a \ 10 MOD 10 = 8 OR a MOD 10 = 8 THEN - проверка наличия цифры 8 в числе разными способами:
- a \ 10000 - деление числа на 10000 (первая цифра числа)
- a \ 1000 MOD 10 - деление числа на 1000 и получение остатка (последняя цифра числа)
- a \ 100 MOD 10 - деление числа на 100 и получение остатка (третья цифра числа)
- a \ 10 MOD 10 - деление числа на 10 и получение остатка (последняя цифра числа)
- a MOD 10 - деление числа на 10 и получение остатка (последняя цифра числа)
PRINT yes - вывод на экран слова yes, если число содержит цифру 8
ELSE PRINT no - вывод на экран слова no, если число не содержит цифру 8
END IF - завершение условия IF..THEN