Чему равно произведение цифр заданного числа - QBasic
Формулировка задачи:
№1
Дано натуральное число N (1<=N<=1000).Чему равно произведение его цифр?
№2
Вводится последовательность из М целых чисел. Найти наибольшее из четных чисел и его порядковый номер
п.с.
Заранее спасибо
Решение задачи: «Чему равно произведение цифр заданного числа»
textual
Листинг программы
- DECLARE FUNCTION f! (s AS STRING)
- CLS
- DIM s AS STRING
- DO
- INPUT "N = "; n
- LOOP UNTIL n <= 1000
- s = LTRIM$(STR$(n))
- PRINT f(s)
- END
- FUNCTION f (s AS STRING)
- DIM t AS STRING
- IF LEN(s) = 1 THEN
- f = VAL(s)
- ELSE
- t = LEFT$(s, 1)
- s = MID$(s, 2)
- f = f(s) * VAL(t)
- END IF
- END FUNCTION
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д