1 2 3 4 5 6 7 | INPUT "vvedite chislo ", a p = 1 DO p = p * (a MOD 10 ) a = a \ 10 LOOP UNTIL a = 0 PRINT "proizvedenie cifr="; p |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 6 7 | INPUT "vvedite chislo ", a p = 1 DO p = p * (a MOD 10 ) a = a \ 10 LOOP UNTIL a = 0 PRINT "proizvedenie cifr="; p |
Тестирование выполнено в программе QB64 ( Скачать )