МАТЕМАТИЧЕСКОЕ МОДЕЛИРОВАНИЕ
Можно ли использовать «горизнтальную модель» вместо вертикальной

Перевод из двоичной системы счисления в десятичную
Задание: Перевести число 11011012 в десятичную систему счисления.

Для перевода записываем данное число в общем виде:
1·2^6+1·2^5+0·2^4+1·2^3+1·2^2+0·2^1+1·2^0=
=1·64+1·32+0·16+1·8+1·4+1·0+1·1=10910

ответ: 11011012=10910

Перевод из восьмеричной системы счисления в десятичную
Задание: Перевести число 1738 в десятичную систему счисления.

Для перевода записываем данное число в общем виде:
1·8^2+7·8^1+3·8^0=1·64+7·8+3·1=12310

ответ: 1738=12310

Перевод из шестнадцатиричной системы счисления в десятичную
Задание: Перевести число 2А3С16 в десятичную систему счисления.

Для перевода записываем число в общем виде (обратим внимание на то, что букве А соответствует значение 10, а букве С - 12):
2·16^3+10·16^2+3·16^1+12·16^0=2·4096+10·256+3·16+12·1=1081210

ответ: 2А3С16=1081210

1.                                        

program raf105;

var abc,a,b,c: integer;

begin

write('Введите трёхзначное число: ');

readln(abc);

a:= abc div 100;

b:= (abc div 10) mod 10;

c:= abc mod 10;

abc:= c*100 + b*10 + a;

writeln('Число наоборот: ',abc);

end.

2.                                        

program raf105;

var abc,a,b,c: integer;

begin

write('Введите трёхзначное число: ');

readln(abc);

a:= abc div 100;

b:= (abc div 10) mod 10;

c:= abc mod 10;

abc:= b*100 + c*10 + a;

writeln('Первое число переместили в конец: ',abc);

end.

                                         PascalABC 3.4.2