2.
Создай презентацию из 4-5 слайдов на тему «Звуки
окружающей среды». Добавь к каждому слайду
соответствующие звуки. Что ты знаешь озвуках? Какое
значение имеют звуки? Дополни презентацию интересными материалами.​

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.

x - информационный вес одного символа

n - мощность алфавита (кол-во символов)

размер содержащейся в тексте информации находим по формуле:  

k - кол-во символов в тексте 

амазонка 

- один символ несет 8 битов (1 байт)

- байт в письме амазонки

омега:  

один символ несет 7 битов

байт в письме омеги 

минимально возможное число бит для десятичных цифр равно 4,значит инф объем = 150симв * 4бит =600 бит,

ответ: 600 бит