Var a:array[1..10] of real; i:integer; Begin for i:=1 to 10 do Begin Write('Введите ',i,'-ый элемент массива '); Readln(a[i]); if (i mod 2) = 0 then a[i]:=a[i]/2; End; write('Преобразованный массив '); for i:= 1 to 10 do write(a[i],' '); 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
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
a:array[1..10] of real;
i:integer;
Begin
for i:=1 to 10 do Begin
Write('Введите ',i,'-ый элемент массива ');
Readln(a[i]);
if (i mod 2) = 0 then a[i]:=a[i]/2;
End;
write('Преобразованный массив ');
for i:= 1 to 10 do
write(a[i],' ');
End.