3.Запишите в ответе расшифрованное сообщение. Племя Мульти пишет письма, пользуясь 32-символьным алфавитом. Племя Пульти пользуется 8-символьным алфавитом. Вожди племен обменялись письмами. Письмо племени Мульти содержит 20 символов, а письмо племени Пульти-30. Сравните информационный объем сообщений, содержащихся в письмах. ответ запишите в виде - первая буква имени племени, у которого сообщение БОЛЬШЕ, Дальше число-насколько больше. Например, если больше у племени Мульти на 25, то ответ М25.
4. Сколько CD объемом 460 Мбайт потребуется для размещения информации, полностью занимающей жесткий диск емкостью 50 Гбайт?
5. Пропускная некоторого канала связи равно 64 000 бит/с. Сколько секунд займет передача файла объемом 128 Кбайт по этому каналу? 6. Несжатое растровое изображение размером 32 х 256 пикселей занимает 9 кбайт. Каково
Максимально возможное число цветов в палитре изображений?
7. Считая, что каждый символ кодируется в кодировке Unicode, оцените информационный
обьем следующей фразы в битах:
Ура, скоро каникулы.
8. Автоматическое устройство осуществило перекодировку информационного сообщения, первоначально записанного в 16-битовом коде в 8-битовую кодировку. При этом
информационное сообщение уменьшилось на 400битов. Какова длина сообщения? 9. Для хранения текста в 16-битовой кодировке требуется 64 Кбайта. Сколько страниц займет
этот текст, если на странице размещается 64 строки по 64 символа в строке?
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.