Очень срочно надо сделать. Помогите пожалуйста!!!!
Пожалуйста мне завтра это уже надо сдать
Нужно решить 2 системы неравенств и сделать по ним программы в Паскале и плюс начертить их блок-схемы.
Приложения:
![](https://st.uroker.com/files/1b5/1b5d565cda00a62b34fc10e7c256b7cc.png)
Ответы
Ответ дал:
0
1)
var x:integer;
begin
write('Введите значение х >>> ');
Read(x);
Writeln('==========================');
if (x>=2) then
write('y=', 3*x)
else
if (x<=-2)then
write('y не имеет значения')else
write('y=0');
end.
2)
var x:integer;
begin
write('Введите значение х >>> ');
Read(x);
Writeln('==========================');
if (x<0) then
write('y=', x-1)
else
if (x>=5)
then
write('y =',0)
else
write('y=',x);
end.
var x:integer;
begin
write('Введите значение х >>> ');
Read(x);
Writeln('==========================');
if (x>=2) then
write('y=', 3*x)
else
if (x<=-2)then
write('y не имеет значения')else
write('y=0');
end.
2)
var x:integer;
begin
write('Введите значение х >>> ');
Read(x);
Writeln('==========================');
if (x<0) then
write('y=', x-1)
else
if (x>=5)
then
write('y =',0)
else
write('y=',x);
end.
Вас заинтересует
1 год назад
8 лет назад
8 лет назад
8 лет назад