Определить, есть ли среди первых трех цифр дробной части заданного числа f цифра 0- QBasic(Бейсик)

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"

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment