источник канал связи приёмник
учебник учащийся ученики
журнал друг окружающие люди
расписание водитель пассажиры
светофор цвета водители и пешеходы
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
<span>
вот процедура на VBA (на нем записываются макросы в Microsoft Office)
и как-то так блок-схема рисуется :D</span>
Она в колонтитуле, нужно его удалить нажав на край рамки внизу