Составьте логическую функцию для взимания подоходного налога с физических лиц, если дана шкала налогообложения: • до 12 млн руб. - 12% • от 12 до 24 млн руб. - 1440 тыс. руб. + 20% с суммы > 12 млн руб. • от 24 до 36 млн руб. - 3840 тыс. руб. + 25% с суммы > 24 млн руб. • от 36 до 48 млн руб. - 6840 тыс. руб. + 30% с суммы > 36 млн руб. • свыше 48 млн руб. 10440 тыс. руб. + 35% с суммы > 48 млн руб.
Задание 1
Исходя из того, что равновероятных событий может быть 24 - количество часов в сутках
Можно использовать формулу:
N = 2^i
Вместо N подставим количестов возможных равновероятных событий:
24 = 2^i
Ближайшая степень, в которую нужно возвести 2, чтобы получилось 24 - это 5
Значит:
i = 5 бит
ответ 5 бит информации несет сообщение о том, что встреча назначена на 11 часов
Задание 2
В 16 системе счисления каждая цифра несет 4 бита информации, тк
N = 2^i
16 = 2^i
i = 4 бит
Задание 3
Для вычисления количества информации в сообщении о неравновероятном событии используют следующую формулу: I=log(2)(1/p) (логарифм по основанию 2)
I - это количество информации, р - вероятность события
Для буквы О формула примет следующий вид, тк р=0,09:
I = log(2)(1/0,09) = log(2)11,11 = 3,5 бит
Для буквы С формула примет следующий вид, тк р=0,045:
I = log(2)(1/0,045) = log(2)22,22 = 4,5 бит
Для буквы М формула примет следующий вид, тк р=0,026:
I = log(2)(1/0,026) = log(2)38,46 = 5,2 бит
Для буквы Х формула примет следующий вид, тк р=0,009:
I = log(2)(1/0,009) = log(2)111,11 = 6,8 бит
Если округлять то получится (округляем всегда в большую сторону в информатике):
4 бит для буквы О
5 бит для буквы С
6 бит для буквы М
7 бит для буквы Х
uses crt; {Подключение внешнего модуля}
var {Описание переменных}
a:array [1..100] of integer;
n,i:integer;
begin
write('n='); {Вывод текста на экран}
read(n); {Чтение текста}
for i:=1 to 3 do
a[i]:=random(51); {Значение первых 3 элементов}
for i:=4 to n do
a[i]:=((a[i-1]+a[i-2]+a[i-3]) mod 10); {Значение остальных элементов}
writeln('Последовательность:'); {Вывод текста на экран}
for i:=1 to n do
write(a[i],' '); {Вывод последовательности на экран}
writeln; {Перевод указателя на следующую строку}
write('N-ный элемент: ',a[i]); {Вывод текста и элемента на экран}
end.