Var a,a1,a2,a3: integer;
begin
write ('Введите трехзначное число: '); read (a);
a1:=a div 100 mod 10;
a2:=a mod 100 div 10;
a3:=a mod 10;
writeln ('Полученное число: ',a3,a1,a2);
end.
А = 1 "И" "Не А" = 1 то логическая формула равна нулю
А = 1 "И" "Не А" = 0 то логическая формула равно единице
А = 0 "И" "Не А" = 1 то логическая формула равна нулю
А = 0 "И" "Не А" = 0 то логическая формула равна нулю
Пояснение. "и" - это конъюнкция. В ней её переменные равны 1 только в том случае когда обе переменные истины. То есть 1. А так как Не А - это отрицание. То любое число становится противоположным. В данном случае ноль будет единицой
<em><u>Значит дробь правильная, делай по правилу и все получится)</u></em>