//PascalABC.NET 3.4.2
begin
var str := readstring('Введите строку:').ToWords;
var ch := readchar('Введите букву:');
str.Where(x -> Pos(LowerCase(ch), LowerCase(x)) = 1).Count.Print;
end.
A = «Число 22 — чётное число» true (истина)
B =«Волк — травоядное животное» false (ложь)
Значения логического типа boolean занимают 1 байт и принимают одно из двух значений, задаваемых предопределенными константами True (истина) и False (ложь).
Переменная "c" после выполнения этого кода будет: 32
1. Нарушение Конфиденциальности (данные согут просматривать те устройства или люди которым разрешено)
2. Незаконное
проникновение в один из компьютеров сети под видом легального
пользователя или программы
3. Отключение программ защиты данных(шифраторов) и тд.
Както так, ну и ещё наверно (вдруг): изменение Ip илипортов.
Если чтото не правиль, извини))