УМОЛЯЮ, ХОТЬ ЧЕМ-НИБУДЬ дан массив А, состоящий из десяти элементов. Заполнить массив случайными числами в диапазоне от 10 до 50. Найти количество элементов массива, в которых последняя и предпоследняя цифры одинаковые. Вывести заполненный массив.
begin readln(a); if a mod 2 = 0 then println('da') else println('net'); end.
1 б) var a: integer;
begin readln(a); if a mod 10 = 7 then println('da') else println('net'); end.
2 а var a: integer;
begin readln(a); if (a div 10+a mod 10) mod 3 = 0 then println('da') else println('net'); end.
2 б var n,a: integer;
begin writeln('Введите число'); readln(n); writeln('Введите a'); readln(a); if (n div 10+n mod 10) mod a = 0 then println('da') else println('net'); end.
Экспертные системы оперируют не только данными, но и понятийными концептуальными знаниями, выраженными на естественном языке и терминах предметнойобласти.Формой отображения понятийных знаний служат базы знаний, а сами понятийные знания становятся просто знаниями. Правила, содержащиеся в базе знаний, эквивалентны некоторой прикладной программе и могут быть различными по своему формату. Наиболее приемлемым является формат правила «если – то», причем в качестве компонента «то» могут использоваться выводы, утверждения, вероятности, указания, т. е. изменения базы данных. Связанное с правилом условие определяет, является ли то или иноеправилопотенциально справедливым по отношению к текущему состоянию ситуационной модели. Указанное правило разрешает проводить действие, если все заданные для него условия удовлетворяются.
var
a: integer;
begin
readln(a);
if a mod 2 = 0 then
println('da')
else println('net');
end.
1 б)
var
a: integer;
begin
readln(a);
if a mod 10 = 7 then
println('da')
else println('net');
end.
2 а
var
a: integer;
begin
readln(a);
if (a div 10+a mod 10) mod 3 = 0 then
println('da')
else println('net');
end.
2 б
var
n,a: integer;
begin
writeln('Введите число');
readln(n);
writeln('Введите a');
readln(a);
if (n div 10+n mod 10) mod a = 0 then
println('da')
else println('net');
end.