zadach427.BAS

{* Задача427 *}

REM basic

' Определить, есть ли среди первых трех цифр дробной части заданного числа f цифра 0


CLS
again:
INPUT "Vvedite drobnoye chislo:"; h#
 
For i& = 1 To 3
 f% = (h# * 10 ^ i&) Mod 10
 If f% = 0 Then PRINT "Naidena cifra 0 v drobnoj chasti": End
Next i&
PRINT "Ne naideno cifri 0 v drobnoj chasti"
End