Задание 3. Сообщение записано с алфавита, содержащего 24 символа. Какое количе-
ство информации несет одна буква этого алфавита?
Задание 4.
В некотором алфавите записан текст из 300 символов, количество информации в
тексте - 150 байт. Сколько символов в алфавите?
Задание 5.
В озере обитает 200 окуней, 300 пескарей, а карасей и щук по 250. Сколько инфор-
мации будет получено, когда выловят первую рыбу?
program raf105;
var n,m,i:integer;
begin
writeln('Введите диапазон чисел (2 числа через пробел) которые нужно возвести в квадрат');
readln(n,m);
writeln('Вывод:');
for i:=n to m do
writeln(i**2)
end.
2.program raf105;
var a,b,kol1,kol2:integer;
begin
write('Введите число: ');
readln(a);
while a <> 0 do
begin
b:= a mod 10;
if b<>0
then if (b mod 2)=0
then kol1+= 1
else kol2+= 1;
a:= a div 10;
end;
writeln('В числе ',kol1,' чётных и ',kol2,' нечётных цифр');
end.
3.program raf105;
var n,i,kol:integer;
begin
write('Введите N: ');
readln(n);
for i:=1 to n-1 do
if ((i mod 2)<>0) and ((i mod 3)<>0) and ((i mod 5)<>0)
then kol+=1;
writeln('Вывод: ',kol);
end.
Язык PascalABC
1) 39 символов по 8 бит - 312 бит
2) 40 страниц по 60 строк по 64 символа - это 153600 символов,
каждый по 16 бит =2457600 бит=307200 байт = 300 кБ (1кБ=1024 Б)
3) жгвдаеб
4) - текстовые файлы
- звуковые
- если drv, а не dvr - то системные
- тексты программ
- таблицы
- видеофайлы
- изображения
- архивы
- файлы веб-страниц
5) * - любые символы; ? - один любой символ
Подходят
radost.doc
fedor.docx
msdos.doc
rodos.docx
На первой картинке: процессор, кулер, память, материнская плата, видеокарта, корпус, блок питания, оптический привод, жесткий диск
Вторую картинку, видимо, надо просто выучить
На последней картинке: АГБВ
Меньше всего страниц - где есть и абрикосы и яблоки; больше - где абрикосы; еще больше - где в запросе абрикосы или яблоки; больше всего - абрикосы или яблоки или груши