Sub aaa()
s = 0: sign = 1
i = 1
Do While i <= 100
s = s + sign * i
sign = -sign
i = i + 1
Loop
MsgBox s
End Sub
В результате будет получено значение -50.
Выпишу только высказывания.
1)
Число 6 - четно (Истинно)
Все роботы - машины (Истинно)
У каждой лошади есть хвост (Истинно)
Есть кошки, которые дружат с собаками (Истинно)
Всякий моряк умеет плавать (Ложь)
2)
Ложь
Истина
Истина
Истина
Истина
Истина
Истина
Истина
Апгрейд
///////////////////////////////////
Информатика - это наука, которая изучает законы, методы и способы накопления, хранения, обработки и передачи информации с помощью компьютеров и других технических средств. <span>по форме представления информация делится на письмо, звук, осязание, вкус и видео.</span>
<span>Фонетика-это раздел науки о <span>языке, в котором изучаются звуки и их чередования, а также ударение, интонация, слогораздел.</span></span>