Var N, a1, a2, a3, min, max: integer; begin readln(N); N := abs(N); a1 := N mod 10; //в а1 хранится разряд единиц введённого числа N := N div 10; //"стираем" в N последнюю цифру a2 := N mod 10; //в а2 хранится рязряд десятков числа N N := N div 10; a3 := N mod 10; //в а3 хранится рязряд сотен числа N // //поиск минимума из цифр. в переменной мин //хранится наименьшее число на данном шаге. min := a1; if a2 < min then min := a2; if a3 < min then min := a3; // //поиск максимума max := a1; if a2 > max then max := a2; if a3 > max then max := a3; // writeln('min - ', min, ' max - ', max); end.
Редставление знаний - вопрос, возникающий в когнитологии (науке о мышлении), в информатике и в искусственном интеллекте. В когнитологии он связан с тем, как люди хранят и обрабатывают информацию. В информатике - основная цель - подбор представления конкретных и обобщенных знаний, сведений и фактов для накопления и осмысленной обработки информации в ЭВМ.В Искусственном интеллекте (ИИ) основная цель - научиться хранить знания таким образом, чтобы программы могли обрабатывать их и достигнуть подобия человеческого интеллекта. Исследователи ИИ используют теории представления знаний из когнитологии. Такие методы как фреймы, правила, и семантические сети пришли в ИИ из теорий обработки информации человеком. Так как знание используется для достижения разумного поведения, фундаментальной целью дисциплины представления знаний является поиск таких представления, которые делают возможным процесс логического вывода, то есть создание выводов из знаний.
N, a1, a2, a3, min, max: integer;
begin
readln(N);
N := abs(N);
a1 := N mod 10; //в а1 хранится разряд единиц введённого числа
N := N div 10; //"стираем" в N последнюю цифру
a2 := N mod 10; //в а2 хранится рязряд десятков числа N
N := N div 10;
a3 := N mod 10; //в а3 хранится рязряд сотен числа N
//
//поиск минимума из цифр. в переменной мин
//хранится наименьшее число на данном шаге.
min := a1;
if a2 < min then
min := a2;
if a3 < min then
min := a3;
//
//поиск максимума
max := a1;
if a2 > max then
max := a2;
if a3 > max then
max := a3;
//
writeln('min - ', min, ' max - ', max);
end.