Чему равно произведение цифр заданного числа - 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
                        

Оцени полезность:

10 голосов , оценка 4.1 из 5

Похожие ответы