Ну, собственно наш алфавит по условию состоит из 36 символов. Следовательно необходимо расчитать сколько будет занимать универсальный размер переменной, в которую можно будет зашифровать любой из символов.
Бит может принять два состояния, либо 0, либо 1. Следовательно, 1 битом можно закодировать 2 символа. Двумя же битам мы можем зашифровать уже 2 * 2 = 4 символа (умножили два возможных состояния одного бита на другой), нам же нужно 36. Вспоминаем ряд двойки и идем по нему:
2^3 = 8 (слишком мало)
2^4 = 16 (всё ещё не достаточно)
2^5 = 32 (близко, но не сможем зашифровать ещё 4 символа)
2^6 = 64 (то что нужно, 64 > 36, это и есть минимальное кол-во бит)
Итак, что бы зашифровать символ из алфавита размером в 36 символов, нам понадобится минимальная переменная, что сможет его зашифровать, размером в 64 бита.
Сообщение размером в 140 символов, тут уже просто, нужно всего лишь...
Ладно, это не банеры, ссылок по которым клацать нет) 140 * 64 = 8960 бит.
Не пугайся числа, оно хоть и большое, но точно не по компьютерным меркам :)
Давай удивим преподавателя и переведем это в другие еденицы измерения:
8960 / 8(столько занимает "байт") = 1120 байт
1120 / 1024 (небольшая путаница, все последующие единицы измерения занимают в отличии от байта по 1024 раза больше) = 1.9375 килобайта.
Собственно говоря ответ задачи: 8960 бит, либо 1120 байт, либо 1.94 килобайта.
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>1. Современное решение</u>
begin
Writeln('Время падения камня, c: ',Sqrt(2*ReadReal('h=')/9.8):0:1)
end.
<u>2. Обычно в школе решают так</u>
var
t,h:real;
begin
Write('h='); Read(h);
t:=Sqrt(2*h/9.8);
Writeln('Время падения камня, c: ',t:0:1)
end.
<u>Пример</u>
h=35
Время падения камня, c: 2.7
Var
i,a:integer;
s:real;
begin
for i:=1000 to 3000-1 do
if (i mod 6=0)and(i mod 10=4)then
begin
write(i,' ');{это чтобы посмотреть на числа, эту строку можно убрать}
s:=s+i;
end;
writeln;
writeln('S= ',S);
end.
Устройства вывода: монитор, принтер, наушники, колонки, плоттер
E:\видеозапись.avi
E:\ график.xls
E:\ИЗОБРАЖЕНИЯ\аквариум.bmp
E:\ИЗОБРАЖЕНИЯ\ ФОТО\Бия.jpeg
E:\ИЗОБРАЖЕНИЯ\ ФОТО\ Катунь.jpeg
E:\ ТЕКСТЫ\буква.txt
E:\ ТЕКСТЫ\ онегин.doc
E:\мелодия.mp3
E:\презентация.ppt