Определить произведение всех цифр числа - QBasic (27319)

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

Добрый вечер. Есть пара заданий, кто знает, пожалуйста подскажите как нужно решать. Дано натуральное число n. Определить произведение всех цифр этого числа. Вводится последовательность ненулевых чисел, завершаемая нулем. Определить максимальное положительное число в данной последовательности.

Решение задачи: «Определить произведение всех цифр числа»

Листинг программы

DECLARE SUB D ()
CLS
DIM SHARED max
CALL D
PRINT "MAX ="; max
END
 
SUB D
   INPUT x
   IF x > max THEN max = x
   IF x = 0 THEN EXIT SUB
   CALL D
END SUB

Объяснение кода листинга программы

В этом коде определен подпрограммный блок с именем D, который выполняет следующие действия:

Считывает число с помощью оператора INPUT.
Сравнивает это число с переменной max (предполагая, что она была инициализирована нулем до этого). Если число больше max, то обновляет max.
Проверяет, равно ли число нулю. Если да, то с помощью оператора EXIT SUB прерывает выполнение подпрограммы.
Рекурсивно вызывает подпрограмму D. В основной программе:
С помощью оператора DECLARE SUB объявляется подпрограмма D.
С помощью оператора CLS очищается экран.
С помощью оператора DIM SHARED определяется общая для всех подпрограмм переменная max.
Вызывается подпрограмма D.
С помощью оператора PRINT выводится значение переменной max. Ниже представлен список действий в виде нумерованного списка:
Объявление подпрограммы D.
Очистка экрана.
Определение переменной max.
Вызов подпрограммы D.
Вывод значения переменной max.
В подпрограмме D:
- Считывание числа.
- Сравнение числа с переменной max.
- Проверка, равно ли число нулю.
- Рекурсивный вызов подпрограммы D.