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

В данном коде на языке QBasic происходит вычисление произведения всех цифр числа, представленного в десятичной системе счисления.

1. Объявляется переменная n и присваивается ей значение 12345. Это исходное число.
2. Объявляется переменная p и ей присваивается значение 1. Это будет переменная-аккумулятор, в которую будут последовательно добавляться произведения цифр исходного числа.
3. Запускается цикл WHILE, условием которого является ненулевое значение переменной n.
4. Внутри цикла значение переменной p умножается на последнюю цифру числа n (которая вычисляется как остаток от деления n на 10).
5. Значение переменной n уменьшается на 10 (что приводит к удалению последней цифры числа).
6. Цикл продолжается до тех пор, пока значение переменной n не станет равным нулю.
7. После окончания цикла выводится значение переменной p, которое и является произведением всех цифр исходного числа. Список действий:
8. Объявление переменной n со значением 12345.
9. Объявление переменной p со значением 1.
10. Запуск цикла WHILE с условием ненулевого значения переменной n.
11. Умножение значения переменной p на последнюю цифру числа n.
12. Уменьшение значения переменной n на 10.
13. Повторение шагов 4-5 до тех пор, пока значение переменной n не станет равным нулю.
14. Вывод значения переменной p.