Как найти сумму тех двузначных чисел, в запись которых входит хотя бы одна цифра 7 - QBasic

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

Всем добрый вечер. Помогите решить задачу: Дана последовательность из N целых двузначных чисел типа: 17,11,43,44,98,77, 72... Найти сумму тех чисел, в запись которых входит хотя бы одна цифра 7 Заранее спасибо

Решение задачи: «Как найти сумму тех двузначных чисел, в запись которых входит хотя бы одна цифра 7»

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

CLS
 
FOR i = 1 TO 9
   s = s + 10 * i + 7
   s = s + 70 + i
NEXT i
s = s + 70 - 77
 
PRINT "S = "; s
END

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

В первой строке кода CLS очищается экран, чтобы при каждом запуске программы не отображалась предыдущая информация.
Затем в цикле FOR i = 1 TO 9 перебираются числа от 1 до 9.
В каждой итерации внутри цикла две переменные s суммируются следующим образом: первая переменная равна 10 умноженному на текущее значение i, плюс 7, а вторая переменная равна 70 плюс текущее значение i.
Затем две переменные s складываются в одну переменную s.
После завершения цикла, к переменной s добавляется 70 и вычитается 77.
В последней строке кода PRINT S =; s выводится на экран значение переменной s.
Значение переменной s является искомым результатом суммы чисел, в которые входит цифра 7.