Решение уравнения в простых числах - QBasic

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

Дано уравнение 19 * x + 22 * y + 29 * z = 700 Требуется решить его в простых числах. Собственно программа решала его в натуральных числах. В простых числах оказалось всего одно решение.

                    Листинг программы
                
 
                        
                          
                    
REM  OTBET:
REM
REM  x = 5; y = 13; z = 11
REM
 
CLS
 
FOR x = 1 TO 100
FOR y = 1 TO 100
FOR z = 1 TO 100
   IF 19 * x + 22 * y + 29 * z = 700 THEN PRINT x; y; z
NEXT z, y, x
END

Решение задачи: «Решение уравнения в простых числах»

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

DIM x AS LONG, y AS LONG, z AS LONG, s AS LONG
s = 700
FOR x = 0 TO s \ 19
FOR y = 0 TO (s - x * 19) \ 22
    z = s - x * 19 - y * 22
    IF z / 29 = z \ 29 THEN
        z = z \ 29
        PRINT x; y; z, x * 19 + y * 22 + z * 29
    END IF
NEXT y, x

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

Переменные x, y, z, s инициализируются как LONG типом данных.
Значение переменной s устанавливается равным 700.
Два вложенных циклах FOR проходят по всем допустимым значениям x и y от 0 до s\19 и от 0 до (s-x*19)\22 соответственно.
В каждой итерации циклов пересчитывается значение переменной z как s-x19-y22.
С помощью оператора IF проверяется, является ли z%29=z\29.
Если это так, то значение переменной z уменьшается на 29 (z=z\29).
Выводится значение переменных x, y и z, а также сумма x19+y22+z*29.
Циклы завершаются с помощью команды NEXT, указывающей на то, что два вложенных цикла должны быть выполнены последовательно.