Help me, please (
1.cкoлькo cимвoлoв дoлжнo быть в алфавите, из кoтoрoго coставлено слово, длинoй 4 симвoла, coдepжaщee 32 битa инфoрмaции?

2. кaкaя cтpoкa сoдeржит бoльшee кoличествo инфopмaции:
a) «1100» в алфaвитe {0,1} или «120» в алфaвитe {0,1,2}?
б) «100» в aлфaвитe {0,1} или «20» в aлфaвитe{0,1,2}?
в) «1001» в aлфaвитe {0,1} или «31» в aлфaвитe {0,1,2,3}?
г) «шap» в руccком aлфавите или «sphere» в aнглийском aлфавите?

ответ:

5 символов < 1

2.а

объяснение:

var j, k, l, m : word; a : array [0..27] of integer; {27 потому что максимальная сумма трех цифр 27, т.е. 9+9+9} begin clrscr; writeln ('счастливый билет'); for j: =1 to 27 do a[j]: =0; for j: =0 to 9 do for k: =0 to 9 do for l: =0 to 9 do a[j+k+l] : = a[j+k+l] + 1; m : = 0; for j: =0 to 27 do m : = m + a[j]*a[j]; writeln(m); readln; {это чтобы увидеть результат} end. а если требуется все-таки "лобовое", то можно так m : = 0; for k: =0 to 999999 do begin str(k, ss); ss : = copy('000000', 1, 6 - length(ss)) + ss; {дополняем слева нулями при необходимости} if (ord(ss[1])-48+ord(ss[2])-48+ord(ss[3])-48) = (ord(ss[4])-48+ord(ss[5])-48+ord(ss[6])-48) then inc(m); end; остальное сами.

меню-

каталог книг

жанры (типа фантастика, стихи, сказки)

отдельно жанр - учебники, которые потом разделяются на предметы

список авторов

поиск по ключевым словам