, правда очень важно. Информационное сообщение объёмом 1000 битов состоит из 100 символов. Какова мощность алфавита, с которого записано это сообщение?​

Коммуникатор был придуман в начале 2000х и представлял из себя устройство, замещающее компьютер, когда к нему нет доступа (в дороге к примеру), и имеющий функции слежения за положением(путешественники могут определить куда идти если заблудились). Он не имел четких требований, и разных корпорации делали как хотели - с разными элементами управления(сенсорный экран, кнопки и т.п.). Планшетный компьютер был придуман Стивом Джобсом и его Корпорацией Apple®©. В дальнейшем и другие компании переняли его идею. Планшетный компьютер предназначен для замены ПК, как в пути, так и дома. Но главное отличие - маркетинг. Плохие Корпорации® придумывают интересное название коммуникаторы(например тот же планшетный компьютер), меняют там одну составляющую(в случае с планшетным компьютером увеличивают экран) и продают как не имеющее аналогов устройство.

1)

var

  a: 100..999;

  a1, a2, a3: 0..9;   //а1 - сотни, а2 - десятки, а3 - единицы

 

begin

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a1, a3, a2);

end.

2)

var

  a: 100..999;

  a1, a2, a3: 0..9;

 

begin

   

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a2, a1, a3);

end.

3)

var

  a: 100..999;

  a1, a2, a3: 0..9;

 

begin 

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a3, a1, a2, a3);

end.

4)

var

  a: 1000..9999;

  a1, a2, a3, a4: 0..9;

 

begin

  writeln('введите натуральное четырехзначное число');

  readln(a);

  a1: = a div 1000;   //тысячи

  a2: = (a mod 1000) div 100;   //сотни

  a3: = (a mod 100) div 10;   //десятки

  a4: = a mod 10;   //единицы

  writeln('полученное число:   ', a4, a3, a2, a1);

end.

все остальное делается наподобие этого: просто в writeln меняешь местами цифры и все.