Жүйелік блоктың ішінде қандай құрылғылар орналасқан?

​

Перевод из двоичной системы счисления в десятичную
Задание: Перевести число 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

Решение такое (для x=1,2,3,4,5,6,7,8,9,10. ):

var
  x, y: real;
begin
   writeln('*********************');
   writeln('*    X    *    Y    *');
   writeln('*********************');
   for x := 1 to 10 do
      begin
         if x>=0 then y:=5*x else y:=4*x+2;
         writeln('*    'x,'    *    ',y,'    *');
      end;
   writeln('*********************');
end.

Но лучше сделать ввод значений х с клавиатуры:
var
   y: real; i:integer;
   mas: array[1..10] of real;
begin
   for i := 1 to 10 do
      begin
         write ('Введите ',i,'-е значение ');
         readln (mas[i]);
      end;
    writeln('*********************');
    writeln('*    X    *    Y    *');
    writeln('*********************');
    for i := 1 to 10 do
      begin
         if mas[i]>=0 then y:=5*mas[i] else y:=4*mas[i]+2;
         writeln('*    ',mas[i],'    *    ',y,'    *');
      end;
   writeln('*********************');
end.