<em>И снова - приятно, когда кратко))
// PascalABC.NET 3.2, сборка 1483 от 14.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var w:=ReadAllText('in.txt'); w.Println;
var s:=w.MatchValues('\b[A-Za-z]+\b').JoinIntoString(' ');
s.Println; WriteAllText('Eng.txt',s);
s:=w.MatchValues('\b[А-Яа-яЁё]+\b').JoinIntoString(' ');
s.Println; WriteAllText('Rus.txt',s);
end.
<u>Пример (читаем in.txt, пишем в Eng.txt и Rus.txt)</u>
The Флегматичная ЭтА QuICk веРБлЮдица broWN ЖУЕТ fox JuMpS у подъезда over The ЗаСыХающИЙ LAZY ГорькиЙ dog шиПоВНиК
The QuICk broWN fox JuMpS over The LAZY dog
Флегматичная ЭтА веРБлЮдица ЖУЕТ у подъезда ЗаСыХающИЙ ГорькиЙ шиПоВНиК
К-во пикселей 2048*1024=2097152
64 цвета следовательно один пиксель -6 бит
2097152*6=12582912 бит/8=1572864 байта/1024=1536Кбайт
A=1024
b=1024
V=512 КБ
Найти N
N=2^I
V=a*b*I I=V/a*b ( переводим 512Кб в биты в числителе) 1пиксель=1 бит в знаменателе
I=512*1024*8/1024*1024= 4 бит
N=2^4=16 цветов в палитре
1. Потому что нет денег на покупку.
2. Потому что негде купить, или это слишком сложно
3. Потому что жалко денег.
4. Даже не подозревают, что нарушают какие-то там права.
Заменяем буквы цифрами
А=0
К=1
Р=2
У=3
Слова соответствуют числам четверичной системы счисления, т.к. в алфавите всего четыре буквы, и слова записаны в алфавитном порядке.
Слово УКАРА = 31020(3) = 840 в десятичной
840 будет записано под номером 841.
Ответ: 841