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

Категория: Basic
2011-09-20 16:27:10
code: #basic
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"
Поделиться:

Похожие статьи:

теги: студенты, qbasic