Question

Составьте программу (QBasic) нахождения суммы и количества всех нечётных двузначных чисел

Answer 1

Программа на VBA Excel  
Sub pr02()
S = 0
For n = 10 To 99    
     If Int(n / 2) = n / 2 Then
     Else        
         S = S + n    
     End If   
Next n
Cells(2, 2) = S
End Sub  
Печатает в ячейке B2 сумму 2475  

Answer 2

QBasic программа для нахождения суммы и количества всех нечетных двузначных чисел

Вот пример программы на QBasic, которая находит сумму и количество всех нечетных двузначных чисел:

CLS
DIM sum AS INTEGER
DIM count AS INTEGER

sum = 0
count = 0

FOR i = 10 TO 99 STEP 2
    sum = sum + i
    count = count + 1
NEXT i

PRINT "Сумма всех нечетных двузначных чисел: "; sum
PRINT "Количество всех нечетных двузначных чисел: "; count

END

В этой программе мы используем цикл `FOR` для перебора всех нечетных двузначных чисел от 10 до 99 с шагом 2. Внутри цикла мы увеличиваем сумму на текущее число и увеличиваем счетчик на 1. По завершении цикла выводим сумму и количество нечетных двузначных чисел.

Примечание: Программа предполагает, что вы используете QBasic совместимый интерпретатор или среду разработки.

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