Удалить всмысле на ноль заменить? если да, то:
if {name array}[2] <0 then
{name array}:=0;
#include
int main()
{
int i;
cin >> i;
if(i<3 || i==12)
cout << “winter”;
else if(i <6)
cout << “spring”;
else if(i<9)
cout << “summer”;
else
cout << “autumn”;
return 0;
}
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3>
begin
ReadString.AdjacentGroup.SelectMany(t -> t.Count >= 3 ? (t.Count + t[0]).ToCharArray : t).Println;
end.
A1
(X<15)*((X>=3)->(X>=7))
Упростим:
(X<15)*( (X < 3) + (X >=7))
X < 15, подходят все варианты, убираем это условие
((X < 3) + (X >=7))
X < 3 нет
X >= 7 есть единственное(8)
ответ:4
А2
A+¬A*B
(A+¬A) * (A+B)
1 * (A + B)
A + B
Ответ: 2
А3
Анализируем первую строку таблицы:
Когда A, B, C одновременно равны нулю, то функция(D) равна "1".
Проверим:
Вариант 1)A&B&¬C = 0*0*1 = 1 - ложь, ответ не подходит
Вариант 2)A+B+C = 0+0+0 = 1 - ложь
Вариант 3)¬A*¬B*¬C = 1*1*1 = 1 - правда
Вариант 4) ¬A+B+C = 1 + 0 +0 = 1 - правда
Подставим в подходящие функции другие элементы таблицы
Вариант 4, строка 2: 1+0+1 = 0 - Ложь.
Рассматривать дальше не имеет смысла, т.к. остался 1 вариант
Ответ:3
Все три объединил в одну. Смотри в приложении.