|
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
|