ВАРИАНТ 2 1. Отметьте предложения, являющиеся высказываниями.

1Яблоки растут на яблоне.
2Пейте томатный сок.
2Вода-жидкость.
3В какое море впадает река Волга?
42 + x > 6.​

1) неопределенность знаний n = 64 - 32 = 32;

2) i = log232 = 5 бит - количество информации;

3) количество бит соответствует количеству вопросов.

ответ: 5 вопросов.

Надо посчитать количество символов в сообщении: 3 * 25 * 60 = 4500;   сообщение занимает 1125 байт, посчитаем, сколько байт занимает каждый символ: 1125 / 4500 = 0.25;   т.к. символ занимает 0.25 байт, одним байтом можно закодировать 4 символа. байт состоит из 8 бит.  8 / 4 = 2 (количество битов чтобы закодировать каждый символ)  двумя битами можно закодировать 4 символа, значит в алфавите может быть до четырех символов

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.

чесно говоря без них куда легче

 

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then s[i]: ='*';

  writeln(s);

end.

 

с ними только больше кода

 

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then begin

          delete(s,i,1);

          insert('*',s,i);

      end;

  writeln(s);

end.