Вот полная
uses crt;
var
i,k:integer;
begin
for i:=100 to 999 do
if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)
then begin
writeln(i);
k:=k+1;
end;
writeln('кол-во',k)
end.<span>
</span>
Переведём Кбайт в бит.
6 Кбайт = 6 * 1024 * 8 = 49152 бита
1 символ занимает 16 бит.
49152 / 16 = 3072
Ответ: 3072 символа
40 * 50 * 256 = 512000 /8 = 64000 байт
40 * 50 * 16 = 32000 /8 = 4000 байт
40 * 50 * 2 = 32000 /8 = 500 байт
В последнем действии 0 считается как чётное??? Если да, то вот:
35735375537733
Если нет, то вот:
05705375537703
<span>Экспертные системы оперируют не только данными, но и понятийными концептуальными знаниями, выраженными на естественном языке и терминах предметнойобласти.Формой отображения понятийных знаний служат базы знаний, а сами понятийные знания становятся просто знаниями. Правила, содержащиеся в базе знаний, эквивалентны некоторой прикладной программе и могут быть различными по своему формату. Наиболее приемлемым является формат правила «если – то», причем в качестве компонента «то» могут использоваться выводы, утверждения, вероятности, указания, т. е. изменения базы данных. Связанное с правилом условие определяет, является ли то или иноеправилопотенциально справедливым по отношению к текущему состоянию ситуационной модели. Указанное правило разрешает проводить действие, если все заданные для него условия удовлетворяются.</span>
