1)
var a:integer;
begin
for a:=1 to 7 do writeln('Я учусь в гимназии 12');
<span>end.
2)</span>var a:integer;
begin
for a:=15 to 20 do writeln(a);
<span>end.
3)
var a,b,c:integer;
begin
writeln('Введите первое число');
read(a);
writeln('Введите второе число');
read(b);
c:=a+b;
if (a<100) and (a>1) and (b>1) and (b<100) then
writeln('Сумма чисел равна:',c)
else
writeln('Ошибка, числа не в ходят в диапазон 1<N<100');
<span>end.</span>
</span>
Возможно западает какая-нибудь клавиша на клавиатуре или мышке (если были механические повреждения или что-нибудь проливали). Либо может кто-то шутить, подключившись через программу удаленного управления, например.
Мощность алфавита 64, значит для кодирования одного символа требуется 6 бит, т.к. 64 = 2^6.
Объем сообщения равен 5*6 = 30 бит