Если я всё ещё могу в логику, то 8-битное число есть 8-битное представление числа. Таким образом, двоичный код (любой длины) может нести только одну единицу информации. Но я полагаю, что требудется не это. Если требуется определить максимальный объём данных, который может быть представлен 8-биным числом, то это 2^8=256. Если же количество единичных бит, то 5. Если же имеется в виду предоставляемый объём данных, то это 8 бит.Вопрос очень некорректный.
Const
N = 30;
var
a: array [1..N] of integer;
i, j, k: integer;
begin
for i := 1 to N do
readln(a[i]);
for i:=1 to N-1 do
if (a[i] mod 13=0) or (a[i+1] mod 13=0) then k:=k+1;
writeln('k=',k)
end.
Abs - модуль числа.
div - целочисленный результат деления
mod - остаток от деления.
1) 10/12 = 0.8. Целый результат - 0. Модуль нуля тоже ноль.
2) корень из 17 - 4,12. Модуль - 4.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqInteger(3).Sorted.Skip(1).Take(1).Println
end.
<h2>28 10 15</h2><h2>15</h2>