,проверьте правильность.Очень ! 10 класс информатика​

1. Первая цифра отводится на знак (1 - это -, 0 - это +). Остальные 7 - число в двоичной системе счисления. Причём если число отрицательное, то исходное двоичное число инвертируется, и к нему прибавляется 1.
а) 33 | 16 | 8 | 4 | 2 | 1 - в двоичной системе оно выглядит как 100001
      1 |  0  | 0 | 0 | 0 | 1
Так как оно положительное, то в начале ставится 0. Так как чисел всего 6, а не 7, то после первого нуля следует поставить ещё один.
ответ: 0'0100001
б) -63₁₀ = -111111₂ (переводить уже не буду подробно)
Так как число отрицательное, то в начале ставим 1, так как цифр 6, то ставим после 1 0.
1'0111111
Инвертируем:
1'1000000
Прибавляем 1:
1'1000001
ответ: 1'1000001
в) -254₁₀ = -11111110
Так как цифр 8, то последнюю отбрасываем, а далее по алгоритму:
1'1111111 >> 1'0000000 >> 1'0000001
ответ: 1'0000001

2.' ' '                   . . . . .
а) 11110  б)  10101010
   + 1101     -       11011
=101011     =10001111
в)   1101
     *  101
      1101
+1101
=1000001
Всё, как в обычной арифметике.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";

ПЕР
  a, b: РЯД 10 ИЗ ЦЕЛ;
  сч: ЦЕЛ;

УКАЗ
  ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
    a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1
  КОН;
  ОТ сч := 0 ДО РАЗМЕР(b) - 1 ВЫП
    ЕСЛИ ЧЕТ(сч) ТО
      b[сч] := a[сч] * 2
    ИНАЧЕ
      b[сч] := a[сч] * 3
    КОН
  КОН;
  ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
    Вывод.ЧЦел("%d ", a[сч], 0, 0, 0)
  КОН;
  Вывод.Цепь("^");
  ОТ сч := 0 ДО РАЗМЕР(b) - 1 ВЫП
    Вывод.ЧЦел("%d ", b[сч], 0, 0, 0)
  КОН

КОН Задание.