13. Какие существуют виды списков?
14.Какие операции относятся к форматированию таблицы?
15.Как вставить в текст символ, отсутствующий на клавиатуре?​

Program zadacha;

Const n = 10;

Type mas=array[1..n] of integer;

Var s,i,k,d:integer;

m:mas;

Begin

s:=0;

k:=0;

readln(d);

For i:=1 to n do

read(m[i]);

For i:=1 to n do

if m[i]<d then begin

s:=s+m[i];

k:=k+1;

end;

writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);

end. (Это решение для случая если вы вводите сразу весь массив чисел)

Program zadacha;

Const n = 10;

Var s,i,k,d,m:integer;

Begin

s:=0;

k:=0;

readln(d);

for i:=1 to n do begin

readln(m);

if (m < d) then begin

s:=s+m14;

k:=k+1;

end;

end;

writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);

end. (А это решение для того случая когда вы вводите элементы по одному )

1) x * !y * !z - не соответствует, не проходит вторую строчку таблицы истинности
2) !x * !y * z - тоже не проходит вторую
3) !x V !y V x - не проходит первую
4) x V !y V !z - подходит по всем трём строкам из таблицы истинности

для того чтобы понять как это делается нужно подставлять цифры из таблицы истинности в сами выражения и смотреть что в ответе получается.

разберу на примере последнего выражения:
0 V !1 V !1 = 0 V 0 V 0 = 0 - верно 0110 (V это логическое ИЛИ, оно равно 1 когда хотя бы один из элементов равняется 1)

1 V !1 V !1 = 1 V 0 V 0 = 1 - тоже верно согласно таблице
x y z f
1 1 1 1

0 V !0 V !1 = 0 V 1 V 0 = 1 - тоже верно 0011