Ручная, механическая, электрическая, электронная, компьютерная
Решение пишу с телефона. Поэтому проверить, компилируется ли программа или нет, я не смогу.
program zd1;
var x,y,pi:integer;
begin
writeln ('Введите значение переменной X');
readln (x);
pi:=3,14;
if (0 <= x <= 1) then y:=x^4-4
else
y:=sqr(x)-sin (pi*sqr (x));
writeln ('Ответ = ', y);
end.
Сначала
2х2 равно 4, следовательно, А истинно. Обозначим истинное, как 1.
2х2 не равно 5, следовательно, В ложно. Обозначим ложное, как 0.
Тогда:
not(A and B) = not(1 and 0) = not 0 = 1, т.е. высказывание истинно.
A or not B = 1 or not 0 = 1 or 1 = 1, т.е. высказывание истинно.
var
n: integer;
begin
readln(n);
if(n mod 3 = 0) or (n = 1) then writeln('Является степенью тройки')
else writeln('Не является');
end.
Можешь нарисовать перо и наверху поставить одну запятую это будет ПЕР
далее рисуй любую еду и получится ПЕРЕДА а дальше чаек и наверху опять одну запятую и получится ПЕРЕДАЧА