Question

Найти сумму N первых четных натуральных чисел в Qbasic.

Answer 1

Для нахождения суммы первых N четных натуральных чисел в QBasic, можно использовать цикл и условие проверки на четность числа. Вот пример кода:

CLS
INPUT "Введите количество чисел N: ", N
sum = 0
count = 0
number = 0

DO UNTIL count = N
    number = number + 1
    IF number MOD 2 = 0 THEN
        sum = sum + number
        count = count + 1
    END IF
LOOP

PRINT "Сумма первых " + STR$(N) + " четных натуральных чисел: " + STR$(sum)

В этом коде мы сначала запрашиваем у пользователя количество чисел N. Затем мы инициализируем переменные sum (сумма) и count (счетчик) со значением 0, а также переменную number (число) со значением 0.

Затем мы используем цикл DO UNTIL, который будет выполняться до тех пор, пока счетчик count не станет равным N. Внутри цикла мы увеличиваем переменную number на 1 и проверяем, является ли она четным числом с помощью условия number MOD 2 = 0. Если число четное, мы добавляем его к сумме sum и увеличиваем счетчик count на 1.

После завершения цикла мы выводим сообщение с суммой первых N четных натуральных чисел.

Пример работы программы:

Введите количество чисел N: 5
Сумма первых 5 четных натуральных чисел: 30

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.