Вопрос мне, если честно не понятен.
Но, я думаю, это отношение одного предмета к другому.
К примеру: 
program n_1;
var n, m, i: int64;
begin
readln(n);
m:=1;
i:=0;
while n>0 do begin
if (n mod 10) mod 3 = 0 then begin write(m,' '); i:=1; end;
n:=n div 10;
m:=m+1;
end;
if i=0 then write('Таких разрядов нет');
end.
<span>НЕ (Х<6 ) И (Х>7) = (X>=6)И(X>7) = (X>7)
</span>
5 и 6 меньше 7 - условие не выполняется.
7 равно 7, условие опять не выполняется
8 > 7 - условие выполняется.
Ответ: 4.
Sum = 80.
umn = 1584.
Результат в "PascalABCNET" смотри во вложении.
На рисунке цифра 2, подробно во вложенном файле
