writeln(k);. for i := 1 to N do. if (16 <= a[i]) and (a[i] <= 255) and (a[i] < k) then. if k > 10000 then. writeln(0). writeln(k);. for i := 1 to N do. if (64 <= a[i]) and (a[i] mod 8 = 5) and (a[i] > k) then. writeln(k);. for i := 1 to

k: = a[i];

writeln(k);

4) Если шестнадцатеричная запись числа содержит две цифры, то число находится в диапазоне [16¹; 16²-1], то есть [16; 255]. В остальном решение аналогично решению задачи 52:

k: = 10001;

for i: = 1 to N do

if (16 < = a[i]) and (a[i] < = 255) and (a[i] < k) then

k: = a[i];

if k > 10000 then

writeln(0)

else

writeln(k);

5) Если восьмеричная запись числа содержит не менее трёх цифр, то число больше или равно 8² = 64. Если в восьмеричной системе запись оканчивается на 5, то остаток от деления этого числа на 8 равен 5. В остальном решение аналогично решению задачи 51:

k: = 0;

for i: = 1 to N do

if (64 < = a[i]) and (a[i] mod 8 = 5) and (a[i] > k) then

k: = a[i];

writeln(k);

6) Если шестнадцатеричная запись числа содержит не менее трёх цифр, то число больше или равно 16² = 256. Если шестнадцатеричная запись заканчивается на букву C, то остаток от деления числа на 16 равен 12. В остальном решение аналогично решению задачи 52:

k: = 10001;

for i: = 1 to N do

if (256 < = a[i]) and (a[i] mod 16 = 12) and (a[i] < k) then

k: = a[i];

if k > 10000 then

writeln(0)

else

writeln(k);

7) Если восьмеричная запись числа содержит ровно две цифры, то число находится в диапазоне [8¹; 8²-1], то есть [8; 63]. В этом случае первая цифра находится как результат деления нацело на 8, а вторая цифра – как остаток от деления на 8. Приведём полное решение:

k: = 0;

for i: = 1 to N do

if (8 < = a[i]) and (a[i] < = 63) and

(a[i] div 8 < a[i] mod 8) then

k: = k + 1;

writeln(k);