нужно решение
Учитель проверил контрольные работы трех учеников — Алексеева, Васильева и Сергеева, но после проверки забыл принести их в класс. Ученикам он сказал: «Все вы справились с работой, причем все получили разные оценки от «3» до «5». У Сергеева не «5». У Васильева не «4». У Алексеева, по-моему, «4». Впоследствии оказалось, что учитель ошибся и одному ученику верно назвал его оценку, а другим двум — неверно. Кто какую оценку получил?

1. 46 бит

2. 256 символов

Объяснение:

I = K * i

I - информационный объём текстового сообщения

K - количество символов в сообщении

i - информационный вес одного символа (число бит, используемых для записи одного символа)

N = 2^i

N - мощность алфавита (количество символов в алфавите)  

i - информационный вес одного символа (число бит, используемых для записи одного символа)

1.

Дано:

N = 512 символов

K = 37 символов

Найти:

I

512 = 2^i

512 = 2⁹

i = 9 бит

I = 37 * 9 = 46 бит = 5,75 байт

2.

Дано:

I = 2 Кбайт = 16 384 бит

K = 2 048 символов

Найти:

N

I = K * i

i  = I / K

i  = 16 384 / 2 048 = 8 бит

N = 2⁸ = 256 символов

1 байт = 8 бит

1 Кбайт = 1 024 байт

Var a:array[1..100,1..100] of integer; i,j,n,m,max,min:integer; begin write ('Введите количество строк: '); read(n); writeln; write ('Введите количество элементов в строке: '); read(m); writeln; writeln('Введите массив: '); for i:=1 to n do begin for j:=1 to m do begin write(' a[',i,',',j,']='); read(a[i,j]); end; writeln; end; writeln; writeln('Исходный массив: '); for i:=1 to n do begin for j:=1 to m do write(a[i,j],' '); writeln; end; writeln; writeln('Конечный массив: '); for i:=1 to n do begin min:=a[i,1]; max:=a[i,1]; for j:=2 to m do begin if (min>a[i,j]) then min:=a[i,j]; if (max