Var a,b: integer;
begin
readln (a,b);
if (a mod 2 = 0) then writeln ('Число ',a, ' чётное.') else writeln ('Число ',a, ' нечётное.');
if (b mod 2 = 0) then writeln ('Число ',b, ' чётное.') else writeln ('Число ',b, ' нечётное.');
<span>end.</span>
Если X и Y - числовые переменные, то:
1), 3), 6)
а)-log2(3/4) = -log2 3 + log2 4 = <span>1,586 - 2 = 0,414 бит</span>
1) program n_1;
var n: integer;
begin
readln (n);
if n div 100 = 0 then
writeln ('Число двузначное') else writeln ('Число не является двузначным')
<span>end.
</span>
При использовании 128-символьного алфавита для хранения одного символа требуется log(2)128 = 7 бит; при использовании 64-символьного - log(2)64 = 6 бит.
Объем информации в письме племени Мульти = 30*7 = 210 бит;
объем информации в письме племени Пульти = 60*6 = 360 бит.
360-210 = 150 бит
Ответ: письмо племени Пульти содержит на 150 бит информации больше, чем письмо племени Мульти.