Помогите пожалуйста составить программы для первого и второго задания в PascalABC

Question

Помогите пожалуйста составить программы для первого и второго задания в PascalABC

---

Comments

меня как заказчика устраивает

---

ну, если не верно, то уже мои проблемы

---

сам виноват, не надо было на парах ерундой заниматься

Answer 1

Воооотттт... программы на скринах. как можешь заметить внизу , с подтверждением того,что они работают)
буду крайне благодарна, если отметишь,как лучшее решение)
Если что-нибудь еще понадобится-обращайся)
всегда рада помочь)))

---

---

Comments

рад бы вам писать, но есть проблема, я еще не могу писать пользователям)

---

дали бы вы мне ссылочку в вк или номер в телеграмме и ватсап

---

здесь ссылки полностью писать нельзя, но ечли напишу id от вк, сможешь найти?)

---

думаю смогу)

---

olenka_vladimmirovna

Answer 2

// PascalABC.NET

// Версия 3.3.5 сборка 1662 (29.04.2018)

1)

begin

var x := ReadInteger('x->');

Println($'y={3*x**6-6*x**2-7}');

end.

Пример во вложении под номером 1.

2)

begin

var x := ReadInteger('x->');

Println(x in [1..5] ? $'{x}^2+15={x * x + 15}' : $'4*{x}={4 * x}');

end.

Пример во вложении под номером 2.

---

---