zadach295.BAS

{* Задача295 *}

REM basic

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


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