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

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