Очень срочно надо сделать. Помогите пожалуйста!!!! Пожалуйста мне завтра это уже надо...

Question

Очень срочно надо сделать. Помогите пожалуйста!!!!
Пожалуйста мне завтра это уже надо сдать

Нужно решить 2 системы неравенств и сделать по ним программы в Паскале и плюс начертить их блок-схемы.

---

Comments

надо составить программу выводящую значение у в соответствии с введенным значением х?

---

Надо составить программу решения этой системы

---

числа целые или действительные?

---

Целые

---

во второй системе возможно ошибка

---

там,наверно,должно быть x=>5

---

Понятно

---

Так что ты поможешь?

Answer 1

1)
var x:integer;
begin
write('Введите значение х >>> ');
Read(x);
Writeln('==========================');
if (x>=2) then
write('y=', 3*x)
else
if (x<=-2)then<br>write('y не имеет значения')else
write('y=0');
end.

2)
var x:integer;
begin
write('Введите значение х >>> ');
Read(x);
Writeln('==========================');
if (x<0) then<br>write('y=', x-1)
else
if (x>=5)
then
write('y =',0)
else
write('y=',x);
end.

Comments

Спасибо)))