Question

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

Answer 1

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

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.