Вот, модель, заменитель и моделирование
Var
y, x: real;
begin
readln(x);
if (x < 0) then
y := sin(x) / cos(x)
else
if (x <= 1) then
y := exp(2)
else
y := x + cos(x);
writeln(y);
end.
Тот поступает неправильно. Но это общепринятая версия. Можно писать вирусы и из добрых побуждений. Но чаще всего их пишут из не добрых побуждений.
Например. Самые частопоподающиеся вирусы, это трояны. Это самы распростоненный вирус. Да. Он плохо влияет на компьютер. И его пишут либо от скуки, и желания навредить кому то, либо целенаправленно. Но в любом случае, это плохо.
Хорошие вирусы, как я думаю, то это те вирусы, которые для своего беззаботного существования, удаляют все другие вирусы с компьютера. Да. Если этот вирус не обнаружить, и не удалить. То он нанесет урона во много раз больше.
Но в итоге можно сказать. Что тот кто пишеь вирусы. Поступает плохо, тем, что мешает другим пользователям нормально работать. А в некоторых случаях, и лишает их самого компьютера.
23.
8 = 2³
т.е. для кодировки направления необходимо 3 бита. Тогда
264*3 = 792 бита
792/8 = 99 байт
24. 14+18 = 32
32 = 2⁵
т.е 5 бит
144*5 = 720 бит
720/8 = 90 байт
25. Для одного сигнала потребуется 3 бита.
45*3 = 135 бит
26. 0-5 = 6 Это 3 бита, 0-8= 9 = 4 бита 0-11 = 12 4 бита
3 + 4 + 4 = 11 бит
<span>Двоичный код:<span>000011100010111100101111000101000000111000101100000110010000111000101111
0001111000001110001011100010110000001110001011100001111000001110001011100
0011101000011100010111000101110000011100010111000011011000101000000111000
1011100010000100001110001011100010000000010100000011100010111000011100000
0111000101111000110010000111000101111000111000000111000101110001011110000
1110001011100010111100001110001011110010101100010100000110100001010000001
11000101110000111010001010000011011</span></span>