Автоматическое устройство осуществило перекодировку информационного сообщения на языке, первоначально - id910910520200429 от VasyPupok228 29.04.2020 05:34

Question

Информатика: Автоматическое устройство осуществило перекодировку информационного сообщения на языке, первоначально записанного в 8-битовом коде, в 16-битовую кодировку unicode. при этом информационное сообщение увеличилось на 1024 байтов. каков был информационный объём сообщения до перекодировки?

VasyPupok228 · Accepted Answer

// PascalABC.NET 3.3

begin
// а)
writeln('Результаты сдачи экзамена:');
var a:=ArrRandom(15,2,5); a.Println; // генерируем и выводим массив оценок
var k:=a.Where(x->x=2).Count; // подсчитываем количество двоек
writeln('Не сдали экзамен: ',k,' чел. Это ',100*k/15:4:1,'%'); // выводим на эран результаты
// б)
writeln('Данные по продаже компьютеров:');
var b:=ArrRandom(7,5,20); b.Println; // генерируем и выводим результаты продаж
writeln('По возрастанию:');
b.Sorted.Println; // сортируем по возрастанию и выводим
end.

Пример:
Результаты сдачи экзамена:
3 3 3 2 4 3 4 4 3 3 5 2 2 5 5
Не сдали экзамен: 3 чел. Это 20.0%
Данные по продаже компьютеров:
16 20 16 14 5 18 16
По возрастанию:
5 14 16 16 16 18 20

MOGZ ответил