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

Узнай цену своей работы

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

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

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

textual
Листинг программы
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

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

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

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы