zadach308.BAS

{* Задача308 *}

REM basic

' Определить, есть ли в заданном четырехразрядном числе "a" цифры 5 или 8.


CLS
INPUT a
If a  1000 = 5 Or a  1000 = 8 Or a  100 Mod 10 = 5 Or a  100 Mod 10 = 8 Or a  10 Mod 10 = 5 Or a  10 Mod 10 = 8 Or a Mod 10 = 5 Or a Mod 10 = 8 Then
PRINT "yes"
Else PRINT "no"
End If
End