Разработка искуственного интелекта зашла в тупик, в основном идут попытки имитации работы мозга на основе неиронных сетей
Var i,j,k,n: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> i:=1; k:=0;
</span><span> repeat
</span><span> j:=i;
</span><span> repeat
</span><span> k:=k+1;
</span><span> writeln(i,' ',j,' ',n-i-j);
</span><span> j:=j+1;
</span><span> until j>(n-i) div 2;
</span><span> i:=i+1;
</span><span> until i>n div 3;
</span><span> writeln('всего вариантов: ',k);
</span><span>end.
</span>
n = 10
<span>1 1 8
</span><span>1 2 7
</span><span>1 3 6
</span><span>1 4 5
</span><span>2 2 6
</span><span>2 3 5
</span><span>2 4 4
</span><span>3 3 4
</span><span>всего вариантов: 8
</span><span>
</span>
1. Информация хранится на носителях.
2. Для этого она должна удовлетворять ряду критериев.
Быть доступной и однозначно интерпретируемой, обрабатывается по буквам, байтам, разрядам, блокам, по страницам согласно алгоритму
For i := 1 to 4 do for j := 1 to 5 do if (a[ i, j ] < 0) then m := m * a[ i,j ];
P.S программа написана для Pascal.
program grafic;
var
a, b, k : real;
begin
writeln('Введите координаты а- это x, а b- это y ');
writeln('a=');
read(a);
writeln('b=');
read(b);
k:=5*a*a-7*a+2;
writeln(k);
if (b=k)then
writeln('точка принадлежит графику y=5x^2-7x+2')
else
writeln('Точка не принадлежит графику y=5x^2-7x+2');
end.
Пример:
a=0 b=2 - точка принадлежит графику;
a=1 b=1 - точка не принадлежит графику.