№2.
Program chisla;
Uses crt;
Var a: longint;
Begin ClrScr;
Writeln ('введи число');
Readln (a);
If a mod 2 = 0 then
begin
writeln (a, '-чётное число');
end
else
writeln (a, '-нечётное число');
end.
Это как ? Имеется в виду что в учебнике ?
Если да то, большинство в учебнике рассказывается про историю как создавался компьютер . От линейки до сверхкомпьютеров NASA
1,5 КБ=1536 байт=12288 бит
12288/3072=4 бита на символ
=16 символов в алфавите
3 бита
=8 - на кодировку одного символа требуется 3 байта
3*13=39 бит
60*3*25=4500 символов в сообщении
1125*8=9000 бит занимает сообщение
9000/4500=2 бита на символ
=4 символа в использованном алфавите