Техника безопасности в кабинете информатики 30 лет назад. похожи ли она с техникой безопасности которая сейчас?

Да, похожи.
Почти ничего не меняется:
- нужно быть внимательным и осторожным с техникой;
- не включать/выключать компьютер без разрешения учителя;
- не трогайте провода и разъемы кабелей;
- не используйте компьютер если у Вас грязные руки;
- не пытайтесь самостоятельно устранять неполадки в работе компьютера.
В наши дни, из-за того что техника имеет большую распространенность, некоторые правила мягче. Например: дети сами могут включать/выключать комп и т.д.. Но в целом ничего не изменилось.

1 бит это самая маленькая информационная единица. Бит это значение 0 или 1.

Чтобы закодировать 2 возможных варианта, достаточно 1 бита.

Если нужно закодировать 3 варианта, то нужно будет уже 2 бита.

При чем 2 мя битами можно закодировать 3 варианта и даже 4.

Количество исходов, или символов которые можно закодировать определяется по формуле: 2 в степени х = количество исходов.

где Х - количество Бит.

Так 2^5 = 32 - - - значит 5 битами можно закодировать 32 символа и менее.

2^6=64 - - - 6 ю битами можно закодировать 64 символа и менее.

Значит от вет будет 6 бит

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.