Уисполнителя вычислитель две команды, которым присвоены номера: 1. умножь на 4 2. вычти 2 первая из них увеличивает число на экране в 4 раза, вторая уменьшает его на 2. составьте алгоритм получения из числа 4 числа 28, содержащий не более 5 команд

Удобнее делать наоборот, получаем из числа 28 число 4

Команды :4 и +2

28 + 2 = 30 - 2 команда
30 + 2 = 32 - 2 команда
32 : 4 = 8 - 1 команда
8 : 4 = 2 - 1 команда
2 + 2 = 4 - 2 команда

Т.к. делали всё наоборот, записываем команды в обратном порядке:
21122

Экспертные системы- это интеллектуальные системы получать, накапливать и корректировать знания в заданной предметной области, получать новые знания, решать на основе этих знаний практические задачи и объяснять ход их решения.

Типичное применение экспертных систем- консультирование специалистов средней квалификации и неспециалистов в той сфере,  для которой разработаны экспертные системы.

Создано немало экспертных систем в таких сферах, как медицинская диагностика, юриспруденция, управление технологическими процессами.

В создании экспертных систем должны принимать участие специалисты 2 категорий: экспертов и инженеров знаний.

Эксперты-это высококвалифицированные специалисты в данной предметной области, знания которых нужно передать экспертной системе.

Задачей инженеров знаний является формализция знаний экспертов и приведение их к виду, пригодному для занесения в базу знаний.

Наиболее известным языком программирования, предназначенным для разработки экспертных систем, считается язык Пролог. Этот язык имеет удобные средства для отображения фактов и правил, а в основе выполнения программы, написанной на ПРОЛОГе , лежит встроенный механизм логического вывода.

program twonumbers;

var

 first, second: integer;

begin

 read(first, second);

 if ((first + second) mod 3 = 0) then

   write(first * second)

 else

 begin

   first := first * 2;

   second := second * 2;

   write(first, ' ', second);

 end;

end.

Объяснение:

program twonumbers;  // Название программы

var

 first, second: integer;  // Целочисленные переменные, хранящие вводимые с клавиатуры значения

begin  // Начало программы

 read(first, second);  // Считываем 2 целых числа с клавиатуры

 if ((first + second) mod 3 = 0) then  // Если сумма чисел кратна 3

   write(first * second)  // Выводим их произведение

 else  // Иначе

 begin  // Начало цикла

   first := first * 2;  // Увеличиваем первое вдвое

   second := second * 2;  // Увеличиваем второе вдвое

   write(first, ' ', second);  // Выводим их

 end;  // Конец цикла

end. // Конец программы