Почему тактильную информацию нельзя передать через интернет

тактильная информация - это чувства при контакте. что в данном случае выступает источником информации? тело, касающееся кожи. что является приёмником информации? рецепторы, волосы на нашей коже, а также нервы, которые отправляют сигнал нам в голову и обрабатывают как контакт. определим эту систему как человек-человек, тогда основой тактильного прикосновения ("именно ощущение такового") будет электрический ток, проходящий по нейронам в мозг. передать ток через пространство вполне возможно ("так как электрический ток вполне может проходить в заряженных газах"). но можем ли мы передать ток по кабелю интернета или по wi-fi? здесь уже проблема. просто отправить электрический ток определённой частоты мы можем - но в розетке, в электрической сети нашего дома нет никакого устройства, которое отправило бы через транслятор наш сигнал как волну. поэтому отправленный в розетку сигнал никак не попадёт другому человеку даже в дом. если опустим этот вопрос и вспомним принцип работы радио, то можем легко заимствовать логику работы: мы получаем частоту колебаний тока, которые проходят через модулятор ("усилитель") и отправляются в пространство. таким образом мы можем сделать и с электрическим током, проходящим в нашем мозге. другая проблема ("не менее важная, чем то, как мы создадим такой ток, проходящий в голове") будет заключаться в получении такового сигнала в мозг другого человека. теоретически это возможно, но никто не будет вскрывать черепушки людям и проводить такие "эксперименты", поскольку таковы запрещены в любом развитом государстве.

1. начало

2. оденься

3. выйти из дома

4. если есть машина

  5.то сесть в машину

  6. завести машину

  7.начать путь следования по дороге

  8.доехать до села

  9. выйти из машины

иначе 10. дойти до остановки

          11.дождаться автобуса

          12. зайти в автобус

          13. доехать до села

          14. выйти из автобуса

15. конец

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.