const N = 30;
var a : array[1..N] of integer;
i, j, x : integer;
Begin
for i := 1 to N do readln(a[i]);
readln(x);
for i := 1 to N do begin //перебираем элементы массива
if a[i] = x then begin //если находим элемент равный Х то
writeln('наименьший номер элемента равного X - ', i); //выводим сообщение
exit; //и завершаем программу не завершив перебор, т.к. нам нужен только наименьший номер
end;
writeln('такого элемента нет'); //если перебрав весь массив не находим совпадений то выводим сообщение
end.
Объяснение:
объяснения в комментариях программы
проверено на PascalABC
64 символьый алфавит. Посмотрим какой объем информации нужен для хранения одного символа:
log2(64) = 6 бит (двоичный логарифм от 64)
Носителем является глиняная табличка, на которой нанесено 512 символов,
итого 512 * 6 = 3072 бит или 3072/8 = 384 байта информации (в одном байте ровно 8 бит)
Во всем своде законов 1024 глиняных таблички, значит
3145728 бит или 393216 байта информации или (делим на 1024) 384 килобайта информации
в одном носителе: 3072 бит или 384 байта информации
во всем своде: 3145728 бит или 393216 байта или 384 килобайта
Задание номер 2
Мощность алфавита = 256, посчитаем объем информации, занимаемый одним символом
log2(256) = 8 бит или 1 байт (в одном байте 8 бит)
Одна страница содержит 256 символов. Так как один символ один байт, значит одна страница 256 байт.
Всего у племени 320 страниц текста, умножим
256 * 320 = 81920 байт на всех страницах.
В одном килобайте 1024 байта (по старому стандарту)
81920 байт / 1024 байт в килобайте = 80 килобайт
ответ: 80 килобайт необходимо для сохранения текста племени
Задание номер 3
у мульти 16 символьный алфавит. Посмотрим какой объем занимает символ:
log2(16) = 4 (на всякий случай - в какую степень надо возвести 2 чтобы получить 16, в четвертую степень, значит этот логарифм равен 4)
Теперь посчитаем объем информации символа пульти:
log2(256) = 8
по условию задачи они передали одинаковое число символов друг другу.
Пусть X символов передали.
Тогда Мульти передали: 4*X бит, а пульти 8*X бит.
Разделим одно на другое
8x/4x = 2, значит Пульти передали в два раза больше информации.
ответ: пульти передали в два раза больше информации
const N = 30;
var a : array[1..N] of integer;
i, j, x : integer;
Begin
for i := 1 to N do readln(a[i]);
readln(x);
for i := 1 to N do begin //перебираем элементы массива
if a[i] = x then begin //если находим элемент равный Х то
writeln('наименьший номер элемента равного X - ', i); //выводим сообщение
exit; //и завершаем программу не завершив перебор, т.к. нам нужен только наименьший номер
end;
end;
writeln('такого элемента нет'); //если перебрав весь массив не находим совпадений то выводим сообщение
end.
Объяснение:
объяснения в комментариях программы
проверено на PascalABC
64 символьый алфавит. Посмотрим какой объем информации нужен для хранения одного символа:
log2(64) = 6 бит (двоичный логарифм от 64)
Носителем является глиняная табличка, на которой нанесено 512 символов,
итого 512 * 6 = 3072 бит или 3072/8 = 384 байта информации (в одном байте ровно 8 бит)
Во всем своде законов 1024 глиняных таблички, значит
3145728 бит или 393216 байта информации или (делим на 1024) 384 килобайта информации
в одном носителе: 3072 бит или 384 байта информации
во всем своде: 3145728 бит или 393216 байта или 384 килобайта
Задание номер 2
Мощность алфавита = 256, посчитаем объем информации, занимаемый одним символом
log2(256) = 8 бит или 1 байт (в одном байте 8 бит)
Одна страница содержит 256 символов. Так как один символ один байт, значит одна страница 256 байт.
Всего у племени 320 страниц текста, умножим
256 * 320 = 81920 байт на всех страницах.
В одном килобайте 1024 байта (по старому стандарту)
81920 байт / 1024 байт в килобайте = 80 килобайт
ответ: 80 килобайт необходимо для сохранения текста племени
Задание номер 3
у мульти 16 символьный алфавит. Посмотрим какой объем занимает символ:
log2(16) = 4 (на всякий случай - в какую степень надо возвести 2 чтобы получить 16, в четвертую степень, значит этот логарифм равен 4)
Теперь посчитаем объем информации символа пульти:
log2(256) = 8
по условию задачи они передали одинаковое число символов друг другу.
Пусть X символов передали.
Тогда Мульти передали: 4*X бит, а пульти 8*X бит.
Разделим одно на другое
8x/4x = 2, значит Пульти передали в два раза больше информации.
ответ: пульти передали в два раза больше информации