Вариант 17
1. а) 5756) 748, в) 933,50; г) 1005,375, д) 270, 44
2 а) 1 б) 100 1 р. b) 01,0
г) 101,01; д) 1004, i зу, е) 103,8ce
а) toннo101, +1010100 110,2; 6) 1001 10001 + 1100 100 10,
а) нині 00, 01 + 110100 100,01; г) 755,36 + 1246,5
а) sp,2 + 638, e-
а) 0010. - 1101001, 6) 11011011 - 110110101
о 1 10,01 - 10100 110, 101 1632.1 - 206, 34,
а) 3. с. — 19с.8
а) h000101001, б) 133,6 73,4 і в 46,8 в.а​

Преобразуем выражение к виду, из которого легко перевести в шестеричную систему, затем переведём в неё и посчитаем, сколько получится:

36^17+66^6-6=66^6+(6^2)^12-6=66^6+6^(2*12)-6=66^6+6^24-6^1=(1*6^36+1*6^24)-1*6^1=1000000000001000000000000000000000000^6-10^6=1000000000000555555555555555555555550^6

Как видим, была разность двух чисел в шестеричной системе счисления.
Первое число состояло из двух единиц и кучи нулей.
Вторая единица- после неё было 24 нуля (т.к. в шестеричной системе и есть единица с 24-мя нулями).
Потом мы вычли из этого единицу с одним нулём.
Получается, у нас из этих 24-ёх нулей, последний останется, а вместо остальных 23-ёх будут стоять пятёрки. Ну, а вместо второй единицы будет ноль.

Итого, в этой записи будет 23 пятёрки.

Var n, a, pos, neg, null, i: integer;
 begin
  pos := 0;
  neg := 0;
  null := 0;
  writeln('Введите N:');
  readln(n);
  writeln('Введите N целых чисел:');
  for i := 1 to n do
   begin
    read(a);
    if(a < 0) then neg := neg + 1;
    if(a > 0) then pos := pos + 1;
    if(a = 0) then null := null + 1;
  end;
  writeln('Положительных чисел: ', pos);
  writeln('Отрицательных чисел: ', neg);
  writeln('Нулей: ', null);
end.
Тестовые решения:
1)ввод
8
1 2 0 3 0 -5 -4 2
вывод
Положительных чисел: 4
Отрицательных чисел: 2
Нулей: 2
2)ввод
6
0 0 3 -5 0 22
вывод
Положительных чисел: 2
Отрицательных чисел: 1
Нулей: 3