Паскаль.
Немного не понятно: от 1 до 10 это относится только к нечетным числам или ко всем? Ну напишу программу которая просто все числа вычисляет, если сама не сможешь поставить условие ограничения, то сообщи точное условие задачи и напиши мне в личку
program jjj;
var a: array [1..10] of integer; i,summa,proizv:integer;
begin
for i:=1 to 10 do begin
Writeln('напишите элемент массива номер ',i); read(a[i]);
end;
For i:=1 to 10 do begin
if a[i] mod 2=0 then summa:=summa+a[i] else
proizv:=proizv*a[i];
end;
Writeln(summa,' ',proizv); readln;
end.
1. 1v1=1 , 1∧0=0 , ¬0=1
2. ¬А=1, ВvС=0, Д∧С=1
Объяснение:
1
AvВ, если А = 1, В = 1 1v1=1
A ∧ B, если A = 1, B = 0 1∧0=0
¬ А, если А= 0 ¬0=1
2. 1. инверсия – это логическое отрицание, в данном случае высказывание А не истинно, значит не(не истина)=истинна
2. Дизъюнкция – логическое сложение будет истинным тогда, когда хотя бы одно исходное высказывание истинно, так как В-ложь и С ложь, то ВvС=0
3. Конъюнкция – логическое умножение будет истинным тогда, когда оба исходных выражения истинны. Т.к. Д и С истинны, то и результат истина, т.е. =1
