zadach347.BAS

{* Задача347 *}

REM basic

' Определить есть ли среди младших трех цифр целой части заданного числа s цифра 5.


INPUT s
s=INT(s)
If s Mod 10=5 Or s10 Mod 10=5 Or s100 Mod 10=5 Then PRINT"yes" Else PRINT"no"
End