1 2 3 4 5 6 7 8 9 | CLSagain: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": ENDNEXT i&PRINT "Ne naideno cifri 0 v drobnoj chasti" |
Тестирование выполнено в программе QB64 ( Скачать )