1.
var
a : integer;
begin
write('введите число: ');
readln(a);
if a mod 2 = 0 then writeln('четное') else writeln('нечетное');
end.
2.
var
x, y : integer;
begin
write('введите x=');
readln(x);
y := x;
writeln('y=', y);
end.
во второй задаче не было указано как считать Y поэтому я просто сделал его равным X. нужную формулу напишешь сам
Первым выполняется логическое умножение, т.е. B∧C
т.к. вариантов нет, то Х может принимать значения от 4 до бесконечности
8^135 = 1 и 135 нулей
8^47 = 1 и 47 нулей
64 = 8^2 = 1 и 2 нуля
8 = 10 в восьмиричной
1 = 1 в восьмиричной
теперь считаем единицы и получаем результат 5 единиц