4. Вычислите сумму 1011012 и 5638. Результат представьте в 16-ой системе счисления. А) 1А0 В) 590 С) 10А D) А01
6. Определите разность суммы четных и нечетных цифр в десятичной записи пятеричного числа 3413
10. Укажите наименьшее четырёхзначное шестнадцатеричное число, двоичная запись которого содержит ровно 6 нулей.
А) 40 В) 1000 С) 103F D) 1FC0
11. Переведите число 11001012 в десятичную систему счисления.
А) 101 В) 101 С) 101 D) 101
12. Сколько единиц в двоичной записи числа 77716?
А) 10 В) 9 С) 8 D) 7
19. Для ко¬ди¬ро¬ва¬ния букв К, L, М, N используются четырехразрядные последовательные двоичные числа от 1000 до 1011 со¬от¬вет¬ствен¬но. За¬ко¬ди¬руй¬те таким об¬ра¬зом по¬сле-до¬ва¬тель¬ность сим¬во¬лов KMLN и за¬пи¬ши¬те ре¬зуль¬тат в вось¬ме¬рич¬ном коде
22. Сложите числа BA516 и DF316, сумму разделите на 135 и представьте окончательный результат в 7-ой системе счисления.

var
j, k, l, m : Word;
A : array [0..27] of Integer; {27 потому что максимальная сумма трех цифр 27, т.е. 9+9+9}
begin
ClrScr;
Writeln ('счастливый билет');
for j:=1 to 27 do A[j]:=0;
for j:=0 to 9 do
for k:=0 to 9 do
for l:=0 to 9 do
A[j+k+l] := A[j+k+l] + 1;

m := 0;
for j:=0 to 27 do
m := m + A[j]*A[j];

WriteLn(m);

ReadLn; {это чтобы увидеть результат}
end.

А если требуется все-таки "лобовое", то можно так

m := 0;
for k:=0 to 999999 do begin
Str(k, SS);
SS := Copy('000000', 1, 6 - Length(SS)) + SS; {дополняем слева нулями при необходимости}
if (Ord(SS[1])-48+Ord(SS[2])-48+Ord(SS[3])-48) = (Ord(SS[4])-48+Ord(SS[5])-48+Ord(SS[6])-48) then
Inc(m);
end;

Остальное сами.

Program A1;
var a:array[1..30] of integer;
      amax,amin,i,imin,imax,n,s:integer;
begin
writeln('введите n элементов массива');
readln(n);
for i:=1 to n do a[i]:=random(30);
writeln('введённый массив имеет вид');
for i:=1 to n do write(a[i], '  ');
writeln;
amax:=a[1]; imiax:=1;
for i:=2 to n do 
if a[i]>amax then begin amax:=a[i]; imax:=i; end;
amin:=a[1]; imin:=1;
for i:=2 to n do 
if a[i]<amin then begin amin:=a[i]; imin:=i; end;
writeln('полученный массив имеет вид');
s:=a[imin];

a[imin]:=a[imax];

a[imax]:=s;
for i:=1 to n do 
writeln(a[i],'  ');
end.