Циклы - надо найти произведение двух чисел, не используя умножения (*) - QBasic

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

надо умножить два числа допустим 'а' и 'н' с помошью цикла for не используя знака умножения то есть надо число 'а' надо прибавить 'а' 'н' раз заранее спасибо

Решение задачи: «Циклы - надо найти произведение двух чисел, не используя умножения (*)»

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

s=0
FOR i=1 TO n STEP 1 ' если шаг равен 1, то его (STEP 1) можно опустить
    s=s+a                  ' можно и оставить - ошибки нет
NEXT i
PRINT "s=";s ' это и есть вывод результата
STOP ' никогда не забывай ставить эти операторы
END

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

В данном коде на языке QBasic реализуется алгоритм нахождения произведения двух чисел без использования операции умножения.

Переменная s инициализируется значением 0. Она будет использоваться для накопления произведения.
Запускается цикл FOR, который выполняется от 1 до n. Шаг цикла установлен равным 1, что означает, что цикл будет выполняться без пропуска элементов.
Внутри цикла значение переменной s увеличивается на значение переменной a. Это означает, что каждый элемент произведения добавляется к переменной s.
После завершения цикла выводится значение переменной s с помощью команды PRINT.
Команда STOP ставится в конце программы, чтобы предотвратить выполнение лишних команд после завершения программы. Таким образом, данный код находит произведение двух чисел, не используя операцию умножения.