Чему равно произведение цифр заданного числа - QBasic

Узнай цену своей работы

Формулировка задачи:

№1 Дано натуральное число N (1<=N<=1000).Чему равно произведение его цифр? №2 Вводится последовательность из М целых чисел. Найти наибольшее из четных чисел и его порядковый номер п.с. Заранее спасибо

Решение задачи: «Чему равно произведение цифр заданного числа»

textual
Листинг программы
  1. DECLARE FUNCTION f! (s AS STRING)
  2. CLS
  3. DIM s AS STRING
  4. DO
  5.    INPUT "N = "; n
  6. LOOP UNTIL n <= 1000
  7.  
  8. s = LTRIM$(STR$(n))
  9. PRINT f(s)
  10. END
  11.  
  12. FUNCTION f (s AS STRING)
  13.    DIM t AS STRING
  14.  
  15.    IF LEN(s) = 1 THEN
  16.       f = VAL(s)
  17.    ELSE
  18.       t = LEFT$(s, 1)
  19.       s = MID$(s, 2)
  20.       f = f(s) * VAL(t)
  21.    END IF
  22. END FUNCTION

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы