1.Переведите число 138 из десятичной системы счисления в двоичную систему счисления. Сколько единиц содержит полученное число? В ответе укажите одно число — количество единиц.

2.Переведите число 1101011 из двоичной системы счисления в десятичную систему счисления. В ответе напишите полученное число.

3. Переведите число 219 из десятичной системы счисления в восьмеричную систему счисления. В ответе напишите полученное число.

​

A)     1    1    1    1    1    1    1 б)     1    2    3    4    5    6    7 в)   -3    0    5  12  21  32  45 г)     3    4  -1    5    0  10 -12 д)     0    1    0    2    0    3    0    4

А)
var    s:string;    mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице}    c:char;    i:longint; begin      read(s);      for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}          mas[c]:=0;      for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}          mas[s[i]]:=mas[s[i]]+1;      for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}          if(mas[c]=1) then                       writeln(c); end.