Var A:integer;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(A);
WriteLn('S = ',(A div 1000)+(A mod 10));
WriteLn('P = ',((A div 100) mod 10)*((A div 10) mod 10));
End.
Ответ:
Смотри картинку
Объяснение:
1. НЕ А (значение обратно исходному)
А = 0 НЕ А = 1
А = 0 НЕ А = 1
А = 1 НЕ А = 0
А = 1 НЕ А = 0
2. А И В (истина (равно 1), когда оба высказывания истина (А = 1 и В = 1))
А = 0 В = 0 А И В = 0 И 0 = 0
А = 0 В = 1 А И В = 0 И 1 = 0
А = 1 В = 0 А И В = 1 И 0 = 0
А = 1 В = 1 А И В = 1 И 1 = 1
3. НЕ А И В (истина (равно 1), когда оба высказывания истина (НЕ А = 1 и В = 1))
НЕ А = 1 В = 0 НЕ А И В = 1 И 0 = 0
НЕ А = 1 В = 1 НЕ А И В = 1 И 1 = 1
НЕ А = 0 В = 0 НЕ А И В = 0 И 0 = 0
НЕ А = 0 В = 1 НЕ А И В = 0 И 1 = 0
4. (А И В) ИЛИ (НЕ А И В) (ложь (равно 0), когда оба высказывания ложь ((А И В) = 0 и (НЕ А И В) = 0))
А И В = 0 НЕ А И В = 0 (А И В) ИЛИ (НЕ А И В) = 0 ИЛИ 0 = 0
А И В = 0 НЕ А И В = 1 (А И В) ИЛИ (НЕ А И В) = 0 ИЛИ 1 = 1
А И В = 0 НЕ А И В = 0 (А И В) ИЛИ (НЕ А И В) = 0 ИЛИ 0 = 0
А И В = 1 НЕ А И В = 0 (А И В) ИЛИ (НЕ А И В) = 1 ИЛИ 0 = 1
Мы ежедневно сталкиваемся с информацией, например читая газету, смотря фильм или телевизор, или просто слушая музыку. Книги - тоже информация. Даже благодаря нашему зрению и слуху мы получаем информацию об окружающем нас мире.
Транслятор,источник,станция, передатчик, что-нибудь из этого.
Объяснение:
1 это или логическое сложение ( её обозначил как перевернатую ^)
^ это и логическое умножения
¬ это не отрицания