тема: система счисления
1. найдите верное равенство:
1916 = 1000102
178 = 2
208 = 1116
1110 = 10102
2. наибольшим из чисел 2, 218, 1940, 1816 является
3. сколько единиц в сумме чисел 101112 и 102?
4. система счисления, в которой 85 + 81 = 106:
а)девятиричная
б)четверичная
в)восьмиричная
г) шестнадцатеричная
5. как называется совокупность всех знаков, используемых в системе
счисления для записи чисел?
а) алфавит б) цифры
в)основание
6. запишите двоичное число, соответствующее следующей записи:
1x 25 +0х 24+ 1 x 23 + 1 x 22 + ox 21+ 1 x 20
(подсказка: перейдите от развёрнутой формы записи числа к свернутой форме.)
7. число 11012 в десятичной системе счисления равно
8. число 6510 в двоичной системе счисления записывается как
9. сколько 1 в двоичной записи десятичного числа 15? ​

program xxx;

var n, c, d, e, k : integer;

begin

  wtite ('введите 3-х значное число n =');

  readln (n);

  c : = n div 100;

  d : = (n div 10) mod 10;

  e : = n mod 10;

  k: = 100*e + 10*d + c;

  if n = k then write ('палиндром') else write('не палиндром')

end.

для 4 символов:

2*2*2*2=16

для 5 символов:

2*2*2*2*2=32 

для 6 символов:

2*2*2*2*2*2=64

16+32+64=112

решение на

const m=10; n=12; var a: array [1..m,1..n] of integer; i,j: integer; sob: integer; sst: array[1..n]of integer; sstr: array[1..m]of integer; beginrandomize; for i: =1 to m do beginfor j: =1 to n do begina[i,j]: =random(10); write(a[i,j]: 3); end; writeln; end; sob: =0; for i: =1 to m do beginfor j: =1 to n do beginsob: =sob+a[i,j]; end; end; writeln('сумма всех элементов массива = ', sob); writeln; writeln; for i: =1 to m do beginsstr[i]: =0; for j: =1 to n do beginsstr[i]: =sstr[i]+a[i,j]; end; end; writeln('сумма элементов построчно'); for i: =1 to m do write(sstr[i]: 3); writeln; writeln; for j: =1 to n do beginsst[j]: =0; for i: =1 to m do beginsst[j]: =sst[j]+a[i,j]; end; end; writeln('сумма элементов по столбцам'); for j: =1 to n do write(sst[j]: 3); end.