Если один символ\буква - 1 байт, то все легко.
Наверное, нужно 4000*4 и готово. Ответ:16000байт
Program DemoSet;
uses crt;
var s:string;
i,k:integer;
begin
k:=0;
clrscr;
write('Введите произвольную строку =>');
readln(s);
writeln('Строка результат');
for i:=1 to length(s) do
begin
if not(s[i] in [1234567890] )then
begin
if s[i] in ['0'..'9'] then inc(k);
write(s[i])
end;
end;
writeln;
writeln('Количество цифр в строке ',k);
readln
end
1 символ кодируется 16 битами.
Размер оказался на 14 байт меньше, это 112 бит.
112 / 16 = 7
На 7 символов стал короче текст. Слово состоит из 5 букв, так как у нас еще пробел и запятая.
Ответ: Выдра.
<h2>ЗКСЗЖ</h2>
не ( ложь ) и ( истина ) или ( истина ) = истина и истина или истина = истина или истина = истина
<h2>СЗКЖЖ</h2>
не ( истина ) и ( истина ) или ( ложь ) = ложь и истина или ложь = ложь или ложь = ложь
<h2>ЗСЗКС</h2>
не ( ложь ) и ( ложь ) или ( истина ) = истина и ложь или истина = ложь или истина = истина
<h2>КСЖЗЖ</h2>
не ( ложь ) и ( истина ) или ( ложь ) = истина и истина или ложь = истина или ложь = истина
<h2>
Ответ</h2>
2
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var a := ArrRandom(10, -5, 10);
writeln(a);
var i:=1;
var s:=0;
while i<=9 do begin
s:=s+a[i];
i:=i+2;
end;
writeln(s);
end.