Question

Написать словесный алгоритм к программе 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

Answer 1

Процедура 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].