Составьте программу (QBasic) нахождения суммы и количества всех нечётных двузначных чисел
Составьте программу (QBasic) нахождения суммы и количества всех нечётных двузначных чисел
Гость
Ответ(ы) на вопрос:
ГостьПрограмма на 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
Не нашли ответ?
Похожие вопросы