Исходя из законов логики мы имеем дело с операцией с константой. Значит
1. A & 1= A
2. ¬A & 1 = ¬A
3. 0 & 1 = 0
4. 1 & 1 = 1
var
x,y: integer;
begin
readln(x,y);
writeln('1. ',x-x**3 / 3 + x**5 / 5);
writeln('2. ',2**(-x) - cos(x) + sin(2*x*y));
writeln('3. ',x-(10*sin(x)) + abs((x**4)-(x**5)));
writeln('4. ',x**2-7*x+10/x**2-8*x+12);
End.
Program chisla;
uses crt;
var a,b,n,k: integer;
begin
b:=0;
Writeln('Нахождение чисел кратным 2-м');
Writeln('Введите интервал чисел: ');
Readln(n,k);
for a:=n to k do
if (a mod 2=0) then
begin
write(a,' ');
b:=b+1;
end;
end.
Var k:integer;
s, x, a:real;
begin
writeln('Введите цену за первые 75 газет.');
readln(a);
writeln('Введите цену за последующие газеты.');
readln(x);
k:=133;
s:=(a*75)+((133-75)*x);
writeln(s);
end.