Var
s:string;
i:integer;
begin
Write('Введите строку: '); Readln(s);
for i:=Length(s) downto 1 do
if Pos(s[i],'ABCDabcd')>0 then Delete(s,i,1);
Writeln('Результат: ',s)
end.
Пример
Введите строку: Carlsbad is an affluent seaside resort city
Результат: rls is n ffluent sesie resort ity
Аппара́тное обеспе́чение<span>, </span>аппаратные<span> средства, компьютерные комплектующие, «железо», (англ. hardware) — электронные и механические части вычислительного устройства, входящие в состав системы или сети...</span>
Один символ из этого алфавита может быть равен 16 различным значениям. Переведем в количество бит:
2^x=16; x=4
Ответ: один символ алфавита из 16 букв несет в себе 4 бита информации.