var
x, count:integer;
begin
write('x = '); readln(x);
write('Количество троек в числе ', x, ' - ');
while x > 0 do
begin
if x mod 10 = 3 then
count := count + 1;
x := x div 10;
end;
writeln(count);
end.
приделали это потом это крях-брях и всё готово
План решения везде одинаковый, т.к. эти системы однородные. В приложении решение двух - 10.8 и 11.8.
1) строим таблицу истинности для первого уравнения.
2) строим отображения пар друг в друга
3) выводим из отображений рекуррентные формулы
4) создаем расчетную таблицу количества битовых цепочек по рекуррентным формулам
5) в последнем столбце суммируем все полученные битовые цепочки и получаем ответ.