Определить есть ли в заданном четырехзначном числе а цифры 5 и 8 — QBasic(Бейсик)

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

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