Написать словесный алгоритм к программе Excel VBA
Private Sub ABC()
'Объявление переменных
Dim A As Single, B As Single, C As Single
Dim S As Single
Dim Otvet1 As String, Otvet2 As String, Otvet3 As String
'Ввод исходных данных
A = Val(Cells(2, 2).Value)
B = Val(Cells(3, 2).Value)
C = Val(Cells(4, 2).Value)
S = 0
'Проверка условия для числа А
If A Mod 2 = 0 Then
Otvet1 = "число À - четное"
S = S + A
Else
Otvet1 = "число A - нечетное"
End If
'Проверка условия для числа В
If B Mod 2 = 0 Then
Otvet2 = "Число В - четное"
S = S + B
Else
Otvet2 = "Число В - нечетное"
End If
'Проверка условия для числа С
If C Mod 2 = 0 Then
Otvet3 = "Число С - четное"
S = S + C
Else
Otvet3 = "Число С - нечетное"
End If
'Вывод результатов
Cells(2, 3).Value = Otvet1
Cells(3, 3).Value = Otvet2
Cells(4, 3).Value = Otvet3
Cells(6, 2).Value = Str(S)

End Sub

Процедура ABC. Объявляются переменные A, B и С, в которые записываются значения ячеек [2, 2], [3, 2] и [4, 2] соответственно, переменная S со значением 0 и три переменных для результатов. Для каждой из переменных A, B, C проверяется, является ли её значение чётным: если да, то в соответствующих ей ответ записывается "Число A/B/C - чётное", а S увеличивается на его значение, в противном случае в ответ пишется "Число A/B/C - нечётное". Далее ответы записываются соответственно в ячейки [2, 3], [3, 3], [4, 3], а сумма чётных значений (S) - в ячейку [6, 2].