//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var n:=abs(ReadInteger);
var a:=n.ToString.Select(x->x.ToDigit).Where(t->t mod 3=0);
if a.Count=0 then write('нет') else write(a.Aggregate(Real(1),(x,y)->x*y));
end.
1. Компьютер
2. Антивирус
3. Локальная сеть (интернет)
Ответ:
корова
Объяснение:
НЕ ( ударение на первый слог) И (кол-во букв чётное)
Это высказывание истино, когда истины обе его части
1) корова (ударение на 2 слог, количество букв чётное)
НЕ (0) И (1) = 1 И 1 = 1 (высказывание истино)
2) козёл (ударение на 2 слог, количество букв нечётное)
НЕ (0) И (0) = 1 И 0 = 0 (высказывание ложно)
3) кошка (ударение на 1 слог, количество букв нечётное)
НЕ (1) И (0) = 0 И 0 = 0 (высказывание ложно)
4) конь (ударение на 1 слог, количество букв чётное)
НЕ (1) И (1) = 0 И 1 = 1 (высказывание ложно)