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

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

Найти сумму всех двузначных чисел, имеющих в записи цифру 1.

                    Листинг программы
                
 
                        
                          
                    
REM
REM  SUMMA = 593
REM
 
CLS
 
FOR x = 1 TO 9
FOR y = 0 TO 9
   IF x = 1 OR y = 1 THEN
      z = 10 * x + y
      S = S + z
   END IF
NEXT y, x
  
PRINT S
END

Решение задачи: «Найти сумму всех двузначных чисел, имеющих в записи цифру 1»

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

FOR i=10 TO 91
IF i\10 =1 OR i MOD 10=1 THEN s=s+i
NEXT
PRINT s

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

В этом коде выполняется следующая последовательность действий:

Создается переменная s типа INTEGER и инициализируется нулем.
Задается цикл от 10 до 91 с шагом 1.
Для каждого числа в диапазоне выполняется проверка:
- Если число делится на 10 и результат деления равен 1, или число остаётся от деления на 10 и результат деления равен 1, то число прибавляется к переменной s.
После выполнения цикла выводится значение переменной s. Список действий:
Создать переменную s типа INTEGER и инициализировать нулем.
Задать цикл от 10 до 91 с шагом 1.
Проверить, делится ли число на 10 и результат деления равен 1, или число остаётся от деления на 10 и результат деления равен 1.
- Если условие выполняется, то число прибавляется к переменной s.
Вывести значение переменной s.