Sub () dim a, b as integer a = inputbox("введите а! ") b = inputbox("введите b! ") if (a > = 0 and b > = 0) or (a < 0 and b < 0) then msgbox ("знаки одинаковые") else msgbox ("знаки разные") end if end sub вот процедура на vba (на нем записываются макросы в microsoft office)и как-то так блок-схема рисуется : d
Популярные вопросы