Сделайте как в паскале. а=10 в=8 в: =а*(в-4)+а а=а*(в-4)+а а-? в-? program zadacha222; var a; b begin

Так как используется 12 букв и десятичные числа, мощность алфавита будет N=22. Отсюда найдем вес одного символа по формуле Шеннона (N=2^i). Но 2^4=16, а 2^5=32, число 22 лежит между этими числами. Округлять нужно в большую сторону, поэтому i=5 бит. Далее найдём объём памяти, необходимой для хранения одного автомобильного номера: I=i*K (K-количество символов в одном номере, К=6). Итак, I=5*6=30 бит. Домножаем это число на количество номеров: 30*32=960 бит. Так как 1 байт=8 бит, переводим в байты: 960 бит=120 байт.
ответ: 120 байт

Const
 alf='АЕЁИОУЫЭЮЯаеёиоуыэюя';

 var s:string;
 i,j,k:integer;
begin;
s:='Молодая княгиня Болконская приехала с работой в шитом золотом бархатном мешке. Ее хорошенькая, с чуть черневшимися усиками верхняя губка была коротка по зубам, но тем милее она открывалась и тем еще милее вытягивалась иногда и опускалась на нижнюю. Как это бывает у вполне привлекательных женщин, недостаток ее — короткость губы и полуоткрытый рот — казались ее особенною, собственно ее красотой. Всем было весело смотреть на эту полную здоровья и живости хорошенькую будущую мать, так легко переносившую свое положение. Старикам и скучающим, мрачным молодым людям казалось, что они сами делаются похожи на нее, побыв и поговорив несколько времени с ней. Кто говорил с ней и видел при каждом слове ее светлую улыбочку и блестящие белые зубы, которые виднелись беспрестанно, тот думал, что он особенно нынче любезен. И это думал каждый.';
for i:=1 to length(s) do
  for j:=1 to length(alf) do
    if s[i]=alf[j] then inc(k);
writeln(k);
end.    

ответ:303