Информационный объём одного символа в алфавите вычисляется по формуле N=2^i,где N количество символов в алфавите, а i - информационный объём одного символа, следовательно, для русского алфавита: в русском алфавите 33 буквы(если там 32, то 2^5=32) а ближайшая степень двойки=5 тогда нам нужно взять на одну степень больше чтобы закодировать этот символ, тогда 2^6=64 откуда следует что для русского алфавита инф. объём одного символа=6 бит по аналогии с латинским, в нём 26 букв, 2^4=16 следовательно 2^5=32 и тогда для латинского алфавита инф. объём=5 бит(кол - во букв брал из интернета так что посмотри там принцип я тебе рассказал)
Var A,R:real; Begin WriteLn('Введи длину сторону квадрата'); ReadLn(A); WriteLn('Введи радиус круга'); ReadLn(R); if Pi*R*R>A*A then WriteLn('Площадь круга больше') else if Pi*R*R<A*A then WriteLn('Площадь квадрата больше') else WriteLn('Площади фигур равны'); End.
Вторая:
Var m1,m2,V1,V2:real; Begin Write('m1 = ');ReadLn(m1); Write('m2 = ');ReadLn(m2); Write('V1 = ');ReadLn(V1); Write('V2 = ');ReadLn(V2); if m1/V1<m2/V2 then WriteLn('Плотность первого тела меньше') else if m1/V1>m2/V2 then WriteLn('Плотность второго тела меньше') else WriteLn('Плотности равны') End.
по аналогии с латинским, в нём 26 букв, 2^4=16 следовательно 2^5=32 и тогда для латинского алфавита инф. объём=5 бит(кол - во букв брал из интернета так что посмотри там принцип я тебе рассказал)