А) (01₂+af₁₆): 36₈=? б) 125₈+101₂·2а₁₆-141₈=? ответ дайте в десятичной системе счисления.

а) 10

б) 198

Объяснение:

a) 1111101(2)=125(10)

   AF(16)=175(10)

    36(8)=30(10)

Итог: (125+175)/30=10

б) 125(8)=85(10)

   101(2)=5(10)

  2A(16)=42(10)

  141(8)=97(10)

Итог: 85+5*42-97=198

159 в 10 СС = 10011111 в 2 СС

159 в 10 СС = 237 в 8 СС

159 в 10 СС = 9F в 16 СС

Объяснение:

159 / 2 = 79 + остаток 1

79 / 2 = 39 + остаток 1

39 / 2 = 19 + остаток 1

19 / 2 = 9 + остаток 1

9 / 2 = 4 + остаток 1

4 / 2 = 2 + остаток 0

2 / 2 = 1 + остаток 0

1 / 2 = 0 + остаток 1

записываем остатки снизу вверх

159 в 10 СС = 10011111 в 2 СС

159 / 8 = 19 + остаток 7

19 / 8 = 2 + остаток 3

2 / 8 = 0 + остаток 2

записываем остатки снизу вверх

159 в 10 СС = 237 в 8 СС

159 / 16 = 9 + остаток 15

9 / 16 = 0 + остаток 9

В качестве цифр шестнадцатиричной системы счисления используются цифры от 0 до 9 и латинские буквы от A до F.

A = 10 B = 11 C = 12 D = 13 E = 14 F = 15

записываем остатки снизу вверх

159 в 10 СС = 9F в 16 СС

1. Примерно так учат писать программы в большинстве школ

var
  n,s:integer;

begin
  s:=0;
  repeat
    Read(n);
    if n<>0 then
      if (n mod 6=0) and (n mod 10=2) then s:=s+n
  until n=0;
  Writeln(s)
end.

Пример
16
42
18
132
94
18
0
174

Кроме этого, зачем-то требуют блок-схему  - приведена во вложении, выполнена по ГОСТ 19.701-90 (ISO 5807-85).

2. А вот так эту задачу можно решить в современном Паскале

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  ReadSeqIntegerWhile(t->t<>0)
      .Where(t->(t mod 6=0) and (t mod 10=2)).Sum.Println
end.

И блок-схема тут вообще не нужна: она ничего не даст.

Сравнение явно не в пользу школьного "образования" - учить, как выполнять работу двадцать минут вместо двух.