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>Я вас любил безмолвно, безнадежно, то робостью, то ревностью томим. - 67 символа
Размер предложения 67символа*16 бит =1072бит(4)</span>
Для 2-байтовой ячейки:
59 = 0000000000111011
-59= 1000000000111011 - прямой код
= 1111111111000100 - обратный код (инверсия)
= 1111111111000101 - дополнительный код (после прибавления единички)
30 = 0000000000011110
-30 = 1000000000011110 - прямой код
= 1111111111100001 - обратный код (инверсия)
= 1111111111100010 - дополнительный код (после прибавления единички)
*********************************
Расчеты смотри на фото
Var
n, min: integer;
begin
readln(n);
min := n div 60;
writeln(min);
<span>end.</span>