Var a,b: integer;
<span>begin
</span><span> write('a = '); readln(a);
</span><span> write('b = '); readln(b);
</span><span> a:=a+b;
</span><span> b:=a-b;
</span><span> a:=a-b;
</span><span> writeln('a = ',a,' b = ',b);
</span><span>end.
</span>a = 15
<span>b = 20
</span><span>a = 20 b = 15
</span>
1)
var k,a,i,n : integer;
t : Text;
begin
readln (k);
n := 0;
Assign (t,'test.txt');
Reset(t);
i := 1;
while not Eof(t) do
begin
read (t,a);
if a = k then
n := i;
i := i +1;
end;
Close (t);
writeln (n);
<span> end.
2)
var
t,t1,t2 : Text;
i : integer;
a : real;
begin
Assign (t,'text.txt');
Reset (t);
Assign (t1,'r1.txt');
rewrite (t1);
Assign (t2,'r2.txt');
rewrite (t2);
i := 1;
while not Eof(t)
do
begin
read (t,a);
if i mod 2 = 1 then
write (t1,a:3:3,' ')
else
write (t2,a:3:3,' ');
i:= i +1;
end;
Close (t);
Close (t1);
Close (t2);
<span> end.</span>
</span>
Отпадают все системы до 6 включительно. Предположим, что это система с основанием 7.
53*2=136
136=136
Следовательно исчисления велись в системе с основанием 7
<span>Экспертные системы оперируют не только данными, но и понятийными концептуальными знаниями, выраженными на естественном языке и терминах предметнойобласти.Формой отображения понятийных знаний служат базы знаний, а сами понятийные знания становятся просто знаниями. Правила, содержащиеся в базе знаний, эквивалентны некоторой прикладной программе и могут быть различными по своему формату. Наиболее приемлемым является формат правила «если – то», причем в качестве компонента «то» могут использоваться выводы, утверждения, вероятности, указания, т. е. изменения базы данных. Связанное с правилом условие определяет, является ли то или иноеправилопотенциально справедливым по отношению к текущему состоянию ситуационной модели. Указанное правило разрешает проводить действие, если все заданные для него условия удовлетворяются.</span>
