Машинное слово- это колич-во данных, кот-е процессор может обработать за одну операцию.
Решение в прилагаемом файле.
Var k,n:integer;
begin
write('k = (k кратно 3) ');
readln(k);
n:=k div 3 mod 10;
writeln(k,'-я цифра последовательности 101102103…149150 = ',n);
end.
Пример:
<span>k = (k кратно 3) 27
27-я цифра последовательности 101102103…149150 = 9</span>
Пользуешься обычными триадами:
111-7;110-6;101-5;110-6
Отсюда: 6567