Определите источник и приёмник информации,а так-же характер(односторонний,двухсторонний) передачи информации в следующих ситуациях: 1)школьник читает текст в учебнике; 2)бабушка читает письмо; 3)мальчик просыпается от звонка будильника; 4)разговаривают две подруги: таня и лена; 5)учитель объясняет новый материал всему классу; 6)регулировщик потоками машин и пешеходов; 7)человек читает объявление в газете; 8)завуч вывешивает листочек с изменениями в расписании; 9)диспетчер сообщает,что автобусный рейс отменяется; 10)вывешен знак,запрещающий проезд по улице; 11)мальчик получил пригласительный билет на ёлку.

Во первых хочу заметить, что в реальном мире однозначно односторонних не бывает, особенно если дело касается живого   1) источник: учебник приемник: школьник.   2) источник: письмо приемник: бабушка.   3) источник: будильник приемник: мальчик.   7) источник: газета приемник: человек.   8) источник: лист изменений приемник: ученики. ? ? 10) источник: знак приемник: водители 11) источник: билет приемник: мальчик. все эти ситуации однотипные, односторонние по типу. хотя конечно приемник может влиять на книгу/газету и тп, но информация в ней от этого не изменится   9) источник: диспетчер. приемник: пассажиры. ? ? вообще говоря случай односторонний, но возможно влияние на то что скажет диспечер. например кто-то придет и скажет, что потерял ребенка и диспечер объявит об этом на всю станцию.   4) источник: таня, лена приемник: таня, лена. двусторонний (и так все понятно)   5) источник: учитель приемник: класс впринцепе односторонний, но ученики могут задавать вопросы. тут скорее двустороний подчиненный, без разрешения учителя, ученики ничего не говорят. с другой стороны учитель смотрит, как его слушают ученики, считывает настроение класса, тп   6) источник: регулировщик приемник: водители, пешеходы это все-таки двусторонний процесс, регулировшик следит за машинами и ситуацией, решает как лучше разрулить ситуацию, а окружающие слушаются его команд.

На паскале: var a,d,c,k: integer; begin writeln('vvedite znachenie peremennoj a'); readln(a); writeln('vvedite znachenie peremennoj d'); readln(d); writeln('vvedite znachenie peremennoj c'); readln(c); writeln('vvedite znachenie peremennoj k'); readln(k); res: =(a+(d-12)*3)*(c-5*k); writeln('(a+(d-12)*3)*(c-5*k)=',res); readln; end.