Найти сумму всех n-значных чисел (1 ≤ n ≤ 4) - QBasic

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

Помогите решить задачу на языке QBasic: Найти сумму всех n-значных чисел (1 ≤ n ≤ 4)

Решение задачи: «Найти сумму всех n-значных чисел (1 ≤ n ≤ 4)»

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

CLS
DIM s AS LONG
INPUT "N = "; n
 
SELECT CASE n
   CASE 1: a = 1: b = 9
   CASE 2: a = 10: b = 99
   CASE 3: a = 100: b = 999
   CASE 4: a = 1000: b = 9999
END SELECT
 
FOR i = a TO b
   s = s + i
NEXT i
 
PRINT "S ="; s
END

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

В этом коде представлена последовательность команд на языке программирования QBasic, которые служат для поиска суммы всех чисел в диапазоне от n до 9999, где n - это четырехзначное число.

CLS - очистка экрана.
DIM s AS LONG - определяет переменную s как длинное целое число.
INPUT N =; n - запрос на ввод значения переменной n.
SELECT CASE n - оператор CASE для определения диапазона чисел.
CASE 1: a = 1: b = 9 - присваивает значения переменным a и b для случая, когда введено число от 1 до 9.
CASE 2: a = 10: b = 99 - присваивает значения переменным a и b для случая, когда введено число от 10 до 99.
CASE 3: a = 100: b = 999 - присваивает значения переменным a и b для случая, когда введено число от 100 до 999.
CASE 4: a = 1000: b = 9999 - присваивает значения переменным a и b для случая, когда введено число от 1000 до 9999.
FOR i = a TO b - начинает цикл, который проходит через все числа в заданном диапазоне.
s = s + i - прибавляет каждое число к переменной s.
NEXT i - продолжает цикл до тех пор, пока не будет достигнуто последнее число в диапазоне.
PRINT S =; s - выводит результат суммы на экран.
END - завершает программу.