(¬x → ¬z) ˅ y → (x → y) → ¬x ˅ ¬z = (заменяем импликацию)
(¬¬x ˅ ¬z) ˅ y → (¬x ˅ y) → ¬x ˅ ¬z = (закон двойного отрицания)
x ˅ ¬z ˅ y → (¬x ˅ y) → ¬x ˅ ¬z = (заменяем импликацию)
¬(x ˅ ¬z ˅ y)˅(¬x ˅ y)→ ¬x ˅ ¬z = (закон де Моргана)
(¬x ˄ ¬¬z ˄ ¬y ˅ ¬x ˅ y)→ ¬x ˅ ¬z = (закон двойного отрицания)
(¬x ˄ z ˄ ¬y ˅ ¬x ˅ y)→ ¬x ˅ ¬z = (правило поглощения ¬x ˄ z ˄ ¬y ˅ ¬x = ¬x)
(¬x ˅ y)→ ¬x ˅ ¬z = (заменяем импликацию)
¬(¬x ˅ y)˅ ¬x ˅ ¬z = (закон де Моргана)
(¬¬x ˄ ¬y)˅ ¬x ˅ ¬z = (закон двойного отрицания)
(x ˄ ¬y)˅ ¬x ˅ ¬z = (распределительный закон)
(x˅ ¬x ˄ ¬y˅ ¬x)˅ ¬z = (исключение третьего)
¬x ˅ ¬y ˅ ¬z
Чтобы увидеть графическую заставку к игре необходимо открыть .avi
Ответ: а
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Введите натуральное четырехзначное число:');
var p:=1;
loop 4 do begin
p:=p*(n mod 10);
n:=n div 10
end;
Writeln('Произведение цифр числа равно ',p)
end.
<u>Пример</u>
Введите натуральное четырехзначное число: 2895
Произведение цифр числа равно 720
begin
var (a,b,c):=ReadReal3('Введите коэффициенты a b c:');
var d:=Sqrt(b*b-4*a*c);
if d=0 then Writeln('x=',-b/2/a)
else Writeln('x1=',(-b-d)/2/a,', x2=',(-b+d)/2/a)
end.
<u>Пример</u>
Введите коэффициенты a b c: 1 -0.5 -7.5
x1=-2.5, x2=3
2 и 4
4 - только если это не опечатка при создании темы. Есть тип Boolean