Обьект, природный для многих целей, выполняющий разнообразные функции, называют универсальным.
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>
<span>77-1= 76\2=38 было в 5А классе</span>
A:=0;
for I:=1 to 10 do
begin
A:=A+12;
writeln(I);
end;
Цикл For изменяет значение переменной i от единицы до десяти, прибавляя за каждую итерацию (повторение) единицу, к значению переменной i => последнее значение i = 10.
1.Антивирус
2.Интернет
3.Архивация
4.Клавиатура
5.Процессор
по вертикально - ВИРУС