Найдите трёхзначное число, равное удвоенному произведению его цифр - QBasic

Решить задачи в qbasic

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

CLS 
 
FOR i =1 TO 9
FOR j =1 TO 9
FOR k=1 TO 9
   A=100 * i + 10 * j + k
   IF 2 * i * j * k = A THEN PRINT A
NEXT k 
NEXT j 
NEXT i 
 
END

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

CLS — очистка экрана
FOR i =1 TO 9 — цикл по числам от 1 до 9
FOR j =1 TO 9 — цикл по числам от 1 до 9
FOR k=1 TO 9 — цикл по числам от 1 до 9
A=100 * i + 10 * j + k — вычисление трехзначного числа
IF 2 * i * j * k = A — проверка условия равности удвоенного произведения цифр числу
PRINT A — вывод числа на экран
NEXT k — переход к следующей итерации цикла по числам от 1 до 9
NEXT j — переход к следующей итерации цикла по числам от 1 до 9
NEXT i — переход к следующей итерации цикла по числам от 1 до 9
END — завершение программы