208,92 системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления.

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 меняешь местами цифры и все.

1)160=240 в восьмой

2)10110101 - объединяем по три цифры, начиная с правой строны. получается:

10   110  101. складываем в каждой такой мини-группе числа между собой. получаем следующее:

1  2  2 -> 101110101 в ВОСЬМЕРИЧНОЙ СИСТЕМЕ = 122. 

122 переводим в десятичную следующи образом:

122 имеет три разряда. умножаем справа налево так: 2*8^0 + 2*8^1 + 1*8^2 (умножаем на восемь из-за того, что 122 у нас в восьмеричной системе). Получаем следующее: 2+16+64=82. ответ: 82 в десятичной

3) по аналогии с п.2 имеем 76 в десятичной