1 скорость передачи 800 сим/сек, а передавали 20 сек - значит размер сообщения: 800*20 = 16000 символов
2. кол-во информации в нем 5000 байт или 5000*8 = 40000 бит.
3. на один символ приходится 40000/16000 = 2,5 бита
4. размер алфавита вычисляется по формуле 2 в степени 2,5
Один символ этого сообщения занимает
180 * 8 бит / 144 = 10 бит
В 10 битах мы можем закодировать символа
Значит в алфавите не более 1024 символов
Пусть ученик неуспевающий, если сумма его отметок меньше 2+2+3+3=10.
var
count_losers, sum, current_sum, mark, i, j, n: integer;
begin
read(n);
count_losers := 0;
for i := 1 to n do
begin
current_sum := 0;
for j := 1 to 4 do
begin
read(mark);
current_sum := current_sum + mark;
end;
if current_sum < 10 then
inc(count_losers);
sum := sum + current_sum;
end;
writeln('Неуспевающих учеников: ', count_losers);
writeln('Средняя сумма четырёх отметок: ', sum / n);
writeln('Средняя отметка: ', sum / 4 / n);
end.
Пример ввода:
4
2 2 2 5
2 2 5 2
2 5 2 2
3 2 2 2
Пример вывода:
Неуспевающих учеников: 1
Средняя сумма четырёх отметок: 10.5
Средняя отметка: 2.625
ПЕР
массив: РЯД N, M ИЗ ЦЕЛ;
сч1, сч2, сум, макс, номер: ЦЕЛ;
УКАЗ
номер := 0; макс := 0;
ОТ сч1 := 0 ДО M-1 ВЫП
УВЕЛИЧИТЬ(макс, массив[0, сч1])
КОН;
ОТ сч1 := 1 ДО N-1 ВЫП
сум := 0;
ОТ сч2 := 0 ДО M-1 ВЫП
УВЕЛИЧИТЬ(сум, массив[сч1, сч2])
КОН;
ЕСЛИ сум > макс ТО макс := сум; номер := сч1 КОН
КОН
КОН Задание.