Во первых хочу заметить, что в реальном мире однозначно односторонних не бывает, особенно если дело касается живого
1) Источник: учебник Приемник: школьник. 2) Источник: письмо Приемник: бабушка. 3) Источник: будильник Приемник: мальчик. 7) Источник: газета Приемник: человек. 8) Источник: лист изменений Приемник: ученики. ?? 10) Источник: знак Приемник: водители 11) Источник: билет Приемник: мальчик. Все эти ситуации однотипные, односторонние по типу. Хотя конечно приемник может влиять на книгу/газету и тп, но информация в ней от этого не изменится
9) Источник: диспетчер. Приемник: пассажиры. ?? Вообще говоря случай односторонний, но возможно влияние на то что скажет диспечер. Например кто-то придет и скажет, что потерял ребенка и диспечер объявит об этом на всю станцию.
4) Источник: Таня, Лена Приемник: Таня, Лена. Двусторонний (и так все понятно) 5) Источник: учитель Приемник: класс Впринцепе односторонний, но ученики могут задавать вопросы. Тут скорее двустороний подчиненный, без разрешения учителя, ученики ничего не говорят. С другой стороны учитель смотрит, как его слушают ученики, считывает настроение класса, тп 6) Источник: регулировщик Приемник: водители, пешеходы Это все-таки двусторонний процесс, регулировшик следит за машинами и ситуацией, решает как лучше разрулить ситуацию, а окружающие слушаются его команд.
Опущу все прелюдии. WriteLn('Введите длины сторон треугольника'); ReadLn(x, y, z); If x = y and y = z and z = x then WriteLn('Данный треугольник - равносторонний') else If (x = y and y = z) or (x = y and x = z) or (x = z and y = z) then WriteLn('Данный треугольник - равнобедренный') else If (Sqrt(x) = Sqrt(y) + Sqrt(z)) or (Sqrt(y) = Sqrt(x) + Sqrt(z)) or (Sqrt(z) = Sqrt(x) + Sqrt(y)) then WriteLn('Данный треугольник - прямоугольный') else If (x < (y + z)) and (y < (x + z)) and (z < (x + y)) then WriteLn('Данный треугольник является обыкновенным') else WriteLn('Данный треугольник не существует'); p := div((x + y + z) / 2); {Полупериметр} WriteLn('Периметр треугольника Р =', x + y + z); WriteLn('Площадь треугольника S =', div(Sqrt(p*(p-x)*(p-y)*(p-z; WriteLn('Медиана к стороне x -', div(Sqrt(2*Sqr(y) + 2*Sqr(z) - Sqr(x))/2)); WriteLn('Биссектриса стороны х -', div(Sqrt(y*z*(x+y+z)*(y+z-x))/(y+z)));
С синусами/косинусами особая история, напиши мне в лс, чтоб я не забыл потом
