Заданно трех разрядное число а с двумя разрядам в дробной части. Определить есть ли в этом числе цифра 8 — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
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

Похожие записи/страницы: