Определите минимальные количество бит, которое необходимо для кодирования сообщения «МАМАМЫЛАРАМУ» (без учета информационного объема, необходимого для хранения самих кодов).
//PascalABC.NET //Постройте алгоритм и составьте программу, по которой будет реализован //следующий вариант сценарий: компьютер запрашивает номер дня недели, //после ввода компьютер сообщает название этого дня (типо если ввели //1 это понедельник 3 - среда)
type Arr = array [0..6] of string;
begin var DN: Arr := ('Воскресенье', 'Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота'); write('Введите порядковый номер дня недели: '); var n := ReadlnInteger; write('Этот день называется ', DN[n mod 7]) end.
var
nm,snm:array of string;
age:array of integer;
k,s:integer;
begin
write('Введите общее кол-во студентов - '); readln(k);
setLength(nm,k); setLength(snm,k); setLength(age,k);
for var i1:=0 to k-1 do begin
writeln('[Студент ',i1+1,']');
write('Имя - '); readln(nm[i1]);
write('Фамилия - '); readln(snm[i1]);
write('Возраст - '); readln(age[i1]);
end;
for var i2:=0 to k-1 do
if age[i2]<16 then s:=s+1;
writeln; writeln('Кол-во студентов которым меньше 16 лет = ',s,' человек:');
for var i2:=0 to k-1 do begin
if age[i2]<16 then writeln(nm[i2],' ',snm[i2],' ',age[i2],' лет');
end;
end.