Составить логические выражения, которые являются истинными, если точка с координатами x, y принадлежит заштрихованным областям:
Для 3 случаев

Var x, temp, p, a, original: integer;
found: boolean;
begin
found:=false; //переменная примет значение "истина" тогда, когда число А будет найдено в цифрах первого числа
writeln('Введите натуральное число");
Readln(original);
Writeln('Введите число A');
Readln(a);
x:=original;
p:=1; //будет хранить произведение цифр числа(если приравнять нулю, то произведение всегда будет равно нулю)
while x>0 do            //пока X болльше нуля
  begin
    temp:=x mod 10;     //заносим последнюю цифру числа X в переменную temp
    if temp=a then found:=true; //если цифра числа равна A, то помечаем, что нашли ее
    p:=p*temp;          //домножаем произведение на цифру
    x:=x div 10;        //отбрасываем последнюю цифру числа через целочисленное деление
  end;
Writeln('Произведение цифр числа ' + original + ' равно ' + p);
if found then writeln('Цифра' + a + ' есть в исходном числе ' + original)
else writeln('Цифра ' + a + ' отсутствует в оригинальном числе ' + original)
end;

За частую искусственный интеллект построен на определенной математической модели с некоторого языка программирования(информатика). Изначально ИИ ничего не умеет и для этого его нужно чему то обучить. Процесс обучения называется - машинным обучением. Машинное обучение происходит на уровне физики так как это наука про самое элементарное и так же можно описать большинство физических процессов. Сама биология и физика понадобиться уже в дальнейшем для определенного рода ИИ. Так как поведение ИИ зависит от его предназначения. К примеру можно взять ИИ для распознавания онкопатологий по результатам комп'ютерной томографии (Его нужно будет обучать на уровне биологии, что бы он более качественно и правильно распознавал опухоли) в зависимости от глубины проникновения рентгеновских лучей в аппарате.