Вначале преобразуем второе слагаемое по закону де-Моргана. Потому что первое слагаемое никак нельзя упростить.
Получаем выражение, с которым можно обращаться по законам обычной алгебры
Дизъюнкция истинна всегда, кроме случая, когда оба значения переменных ложны, поэтому достаточно чтобы или x₁=1, или x₃=0. Или и то и другое одновременно.
Это реализуется для наборов x₁x₃ = 00 10 11 для любых x₂
Для роботи з даними використовують калькулятори, різні пристроЇ,компютори,телефони,диктофони.
Решение во вложении
..............................
Надеюсь я правильно понял суть заданий.
Номер 1.
Program n_1;
var a: integer; b:double;
begin
readln(a);
b:=(a mod 10 + a div 10)/2;
writeln(b:0:1);
end.
Номер 2.
Program n_2;
var a: integer;
begin
readln(a);
a:=a div 10 - a mod 10;
writeln(a);
end.
Номер 3.
Program n_3;
var a, b: integer;
begin
readln(a);
b:=a div 1000;
a:=a - a div 1000 * 1000;
writeln(b , ' кг ', a, ' г');
end.
Номер 4.
Program n_4;
var a: int64;
begin
readln(a);
writeln(a div 10000, ' км^2');
end.
var
i, k: integer;
begin
i:= 100;
k:= 0;
while i < 1000 do
begin
if (i * 2 mod 10 = 8) and (i * 3 mod 10 = 4) then write(i, ' ')
else k:= k + 1;
i:= i + 1;
end;
if k = 900 then writeln('Таких чисел не существует!');end.