Богатырь богатырь тигр тигр тигрщ
___________________________________________
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -10, 10);
a.Println;
a.Transform(t -> Abs(t));
a.Println
end.
<h2>-1 -6 -8 4 10 -5 -7 -8 10 6</h2><h2>1 6 8 4 10 5 7 8 10 6</h2>
Порядок действий:
1 Отрицание-инверсия(не, обозначается - )
2Действия в скобках
3 Конъюнкция-умножение(и, обозначается&)
4 Дизъюнкция-сложение(или, обозначается галочкой)
истина-1,ложь-0
например:
1галочка0&1 следуя по всем законам математики, сначала выполняется умножение т.е & значит 0*1=0, а затем выполняем сложение(галочка) 1+0=1 следовательно ответ истина
1) 1&0=0-ложь
2)1 галочка0=1-истина
3) не 1 галочка 0 - 0+0=0-ложь
4)1 & 0 галочка 1=1*0+1= 1-истина
5)1 галочка 0&1=1+0*1=1-истина
6)не1 галочка 0 &1=0+0*1=0-ложь
7)(1галочка0) &(1галочка0)=(1+0)*(1+0)=1*1=1-истина
8)не(1галочка0) & (1галочка0)=не(1+0)*(1+0)=не1* 1=0*1=0-ложь
9)не(1&0&1)=не(1*0*1)=не(0*1)=не0=1-истина
Var s:string;
z,y,x,v:char;
begin
read(s);
z:=s[1];
y:=s[2];
x:=s[3];
v:=s[4];
write(z,y,x,v,'ток');
end.