Задачи на создание программ в паскале

program fantscrin;

  const n = 11;

  var a: array [1..n] of integer;

      i,s,p: integer;

begin

  for i: =1 to n do

    a[i]: = random(8)+4;

  for i: =1 to n do

    write(a[i], '   ');

  s: =0;

  p: =1;

  for i: =1 to n do

    if (i mod 2 = 0) then p: =p*a[i]

                    else s: =s+a[i];  

  writeln('');

  writeln('сумма = ',s);

  writeln('произведение = ',p);

end.

Заменяем каждый разряд на код из таблицы.

Двоичная СС Восьмеричная СС

000                                    0

001                                     1

010                                     2

011                                     3

100                                     4

101                                     5

110                                     6

111                                     7

Получаем числа:

1024757520 (7) = 001000010100111101111101010000 (2)

1232400565 (7) = 001010011010100000000101110101 (2)

Складываем (0 в начале числа можно убрать):

1000010100111101111101010000 + 1010011010100000000101110101 = 10010101111011110000011000101

Меняем 1 на 0, 0 на  1:

10010101111011110000011000101 = 01101010000100001111100111010

Двоичная СС Шестнадцатеричная СС

0000                               0

0001                               1

0010                               2

0011                               3

0100                               4

0101                               5

0110                               6

0111                                       7

1000                               8

1001                               9

1010                               A

1011                                       B

1100                               C

1101                                       D

1110                                       E

1111                                       F

Получаем число:

1101 0100 0010 0001 1111 0011 1010 (2) = D421F3A (16)