ОПИСАНИЯМИ. Количество связей: 3
Email
о
группы новостей или
телеконференции,
обеспечивает
коллективный обмен
сообщениями
список адресов
электронной почты,
используемый для
массовой рассылки
Usenet
электронная почта,
обеспечивает
возможность обмена
Письменными
сообщениями одного
пользователя с одним
или группой абонентов
Mailing List​

Это математика, а не информатика.
Разбиваешь прямую на отрезки по точкам, в которых модули = 0.
1) При x < -1/2 будет |2x+1| = -2x-1, |2x-1| = 1-2x
-2x-1 = 1-2x
-1 = 1 - не верно, решений в этой области нет.
При -1/2 <= x < 1/2 будет |2x+1| = 2x+1, |2x-1| = 1-2x
2x+1 = 1-2x
4x = 0, x = 0 - принадлежит промежутку, поэтому это решение.
При x >= 1/2 будет |2x+1| = 2x+1, |2x-1| = 2x-1
2x+1 = 2x-1
1 = -1 - не верно, решений в этой области нет.
ответ: x = 0
2) 2x+1 под корнем, значит x >= -1/2
При -1/2 <= x < 1 будет |x-1| = 1-x
корень(2x+1) = 2(1-x)
2x+1 = 4(1-x)^2 = 4(x^2 - 2x + 1) = 4x^2 - 8x + 4
4x^2 - 10x + 3 = 0
D/4 = 5^2 - 4*3 = 25 - 12 = 13
x1 = (5 - корень(13))/4 ~ 0,35 - входит в промежуток, это решение.
x2 = (5 + корень(13))/4 ~ 2,15 > 1, не подходит.
При x >= 1 будет |x-1| = x-1
корень(2x+1) = 2(x-1)
2x+1 = 4(x-1)^2 = 4(x^2 - 2x + 1) = 4x^2 - 8x + 4
4x^2 - 10x + 3 = 0
D/4 = 5^2 - 4*3 = 25 - 12 = 13
x1 = (5 - корень(13))/4 ~ 0,35 < 1, не подходит.
x2 = (5 + корень(13))/4 ~ 2,15 - входит в промежуток, это решение.
ответ:
x1 = (5 - корень(13))/4
x2 = (5 + корень(13))/4
3) При x < -1/2 будет |2x+1| = -2x-1, |3x-1| = 1-3x
1 - 3x - 2x - 1 = 8
-5x = 8, x = -8/5 < -1/2 - входит в промежуток, это решение.
При -1/2 <= x < 1/3 будет |2x+1| = 2x+1, |3x-1| = 1-3x
1 - 3x + 2x + 1 = 8
-x = 6, x = -6 - не входит в промежуток
При x >= 1/3 будет |2x+1| = 2x+1, |3x-1| = 3x-1
3x - 1 + 2x + 1 = 8
5x = 8, x = 8/5 > 1/3 - входит в промежуток, это решение.
ответ: x1 = -8/5, x2 = 8/5

1) program ex;
 var i:integer ;mas:array [1..10] of integer;
 begin 
  for i:=1 to 10 do   
  begin    
   mas[i]:=random(9)+1;    
   if (mas[i] mod 2)=0 then     
    mas[i]:=mas[i]+1;   
  end;
 end. 
2)program ex;
var i:integer ;mas:array [1..10] of integer;
begin 
 for i:=1 to 10 do   
 begin    
  mas[i]:=random(9)+1;    
  if (mas[i] mod 2)=0 then     
   mas[i]:=0;   
  else
   mas[i]:=mas[i]*3;
 end;
end.
3)program ex;
var i:integer ;mas:array [1..10] of integer;
begin 
 for i:=1 to 10 do   
 begin    
  mas[i]:=random(9)+1;    
  if (i mod 2)=0 then     
   mas[i]:=(mas[i]*mas[i]);   
 end;
end.
4)program ex;
var i:integer ;mas:array [1..10] of integer;
begin 
 for i:=1 to 10 do   
 begin    
  readln(mas[i]); 
  if (mas[i]<0) then     
   mas[i]:=mas[i]*(-1);   
 end;
end.