Алфавит 64 символа
1 символ кодируется по формуле
=> 64=2^6
каждый символ 6 бит.
т.к текст 2000 символов то вес документа
2000х6 бит = 12000 бит
Переведем биты в байты 12000 бит-1500 байт (файл)
1500 байт/50 байт/c = 30 секунд!
(x не принадлежит P) v (x принадлежит Q) v (x не принадлежит A) v (x принадлежит R) как любезно упростил preceptor
в коментариях
т.е. чтоб выражение было истинным, то достаточно чтоб хоть одно выражение в скобочках было истинным
Менять мы можем только А, то есть нужно добитьсяя истиности для (x не принадлежит A) при любом х
а это А = пустое множество
//PascalABC.NET 3.4.2
begin
var ar := arrrandom(20, 100, 1000);
ar.Println.Take(10).Sum.Println;
ar.TakeLast(10).Sum.Println;
end.
2 мбайта переводим в биты умножая на 2 в 23 степении делим на 1000*900 получим примерно 16 бит значит в палитре 2 в 16 степени цветов
For var... меняем на
for var n:=k to 1 do