<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqInteger(ReadInteger('n=')).Reverse.Println;
end.
<u>Пример</u>
n= 5
1 2 5 7 9
9 7 5 2 1
Если я не ошибаюсь "end" здесь вообще не нужно)
Var a,b,i,z:integer;y,x,h,k:real;
begin
write('введите a,b,h');read(a,b,h); k:=(b - a)/h;z:= round(k);
for i:=0 to z do begin
x:=a + h*i;
y:= x*x *sin(x*Pi/180);
write(x:6);writeln(y:21:6);<span>end;</span>
На самом деле условие F(х)=0 при х=0 лишнее, поскольку значение F(x)=0.5x² при x≥-1 и так дает F(0)=0.
var
x,F:real;
begin
x:=-3;
while x<4.01 do begin
if x<-1 then F:=x+3
else F:=0.5*x*x;
Writeln('x=',x:4:1,', F=',F:5:3);
x:=x+0.5
end
end.
Результат
x=-3.0, F=0.000
x=-2.5, F=0.500
x=-2.0, F=1.000
x=-1.5, F=1.500
x=-1.0, F=0.500
x=-0.5, F=0.125
x= 0.0, F=0.000
x= 0.5, F=0.125
x= 1.0, F=0.500
x= 1.5, F=1.125
x= 2.0, F=2.000
x= 2.5, F=3.125
x= 3.0, F=4.500
x= 3.5, F=6.125
x= 4.0, F=8.000
В каждом уравнении системы пара скобок, связанных конъюнкцией.
Для получения истины нужно чтобы и первая скобка была истинна, и вторая скобка была истинна.
При этом каждая скобка является отрицанием эквиваленции, проще говоря, x1 не равно x2, x2 не равно x3 и т.д.
Получается, что в наборе цепочек значений x1..x10 не может быть двух подряд идущих единиц или нулей. То есть, если, к примеру, в наборе значений x3=1 и x4=1, то второе уравнение будет ложно, значит ложной будет вся система.
Выходит, всего существует два набора переменных:
x1 1 0
x2 0 1
x3 1 0
x4 0 1
x5 1 0
x6 0 1
x7 1 0
x8 0 1
x9 1 0
x10 0 1
Ответ: 2 набора.