1) Марка- знак того, что отправелнное письмо оплачено, то есть она давала информацию об этом
2) письма содержат информацию в письменной(символьной форме) любого языка, обычно воспринимаемую человеком
3)магнитофон- используется для чтения информаци с магнитых носителей(так называемых касет)
4) телефон- передает звуковуцю информацию на любы расстояния
5)Телевизор- передает графическу и звууковую информацию на любые расстояния
6) спутниковая антена- позволяет обмениваться информацие со спутником
7)Интернет- глобальная локальная сеть, используемая для передачи и храения информаци всех возможных видов
а) Ситуация: человек смотрит телевизор Источник: телевизор → Приёмщик: человек
b) Ситуация: пешеход переходит дорогу на зелёный свет светофора
Источник: светофор → Приёмщик: пешеход
c) Ситуация: ученик готовит доклад
Источник: книги, интернет, люди → Приёмщик: ученик
d) Ситуация: мама разговаривает со своей дочкой
Источник-приёмщик: мама → Приёмщик-источник: дочка
2)1. Звук барабана особенно популярен среди африканских племён. Он распространить сигнал о тревоге на несколько километров.
2. Для передачи сигнала на большие расстояния разные народы использовали дым костра.
3. Для передачи информации на дальние расстояния использовали гонцов.
4. С развитием письменности появилось такое средство дальней связи, как почта.
5. Радио является звуковым каналом передачи информации на большие расстояния. Это и общая развлекательная, и новостная информация.
6. Телефон является личным каналом информации. Используется людьми для общения.
7. Телевидение многоканальный канал информации. Происходит передача как звуковой, так и видеоинформации.
8. Спутники необходимы для передачи информации различного свойства на большие расстояния.
9. Сеть интернет «Всемирная паутина» является каналом связи для передачи различного вида информации.
var
x,a,b:real;
i,n,count:integer;
begin
count:=0;
write('Интервал(a,b): '); readln(a,b);
write('Кол-во чисел в посл.: '); readln(n);
for i:=1 to n do
begin
readln(x);
if (x>a) and (x<b) then
inc(count);
end;
writeln('Кол-во в интерв.:',count);
end.