Электрические импульсы как способ передачи информации используется очень широко, в: видеомагнитофоне, телевизоре, мониторе, сигнализации, электронных замках, и многих других. Электрический импульс передает цифровой и аналоговый сигнал, и даже несколько сигналов одновременно.Магнитные импульсы на сегодняшний день больше используются в медицине, и передают информацию о состоянии внутренних органов человека, например МРТ (магниторезонансный томограф). Из недавнего прошлого можно вспомнить кассетный и бобинный магнитофон.Световые импульсы в качестве способа передачи данных имеют преимущество в скорости. В оптико-волоконном кабеле световой импульс передает информацию со скоростью до 1 Гбит/с.На сегодняшний день большое распространение получают беспроводные способы передачи информации, осуществляется она узкополосными и широкополосными радиоволнами. Самые известные способы беспроводной передачи информации это технологии:
<span>WPAN — беспроводные персональные сети;
WLAN — беспроводные локальные сети;
WMAN — беспроводные сети масштаба города;</span>Большому кругу людей известны марки использующие эти технологии: Bluetooth, Wi-Fi, WiMAX.Нельзя не вспомнить мобильные телефоны. Передача данных между ними происходит с применением протоколов GPRS и WAP, эти протоколы привязаны к мобильной связи стандарта GSM. Стандарт связи CDMA поддерживает современный протокол передачи данных третьего и четвертого поколений, 3G и, технологию будущего, 4G.<span>Способы передачи данных постоянно совершенствуются. Увеличивается скорость и качество передачи, расширяется аудитория потребителей. Даже во многих странах мира, в социальной программе развития общества заложена информатизация населения, и обеспечение необходимыми для этого средствами.</span>
XXIII X MMIII вот так будет))
<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var Число := ReadInteger('Введите натуральное число:');
var (Четных, Нечетных) := (0, 0);
while Число > 0 do
begin
if (Число mod 10).IsOdd then Inc(Нечетных)
else Inc(Четных);
Число := Число div 10
end;
Println('Нечетных', Нечетных, 'четных', Четных)
end.
<h2>Введите натуральное число: 1406439</h2><h2>Нечетных 3 четных 4 </h2>