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

Приложения:

Ответы

Ответ дал: Аноним
0
воооотттт... программы на скринах. как можешь заметить внизу , с подтверждением того,что они работают)
буду крайне благодарна, если отметишь,как лучшее решение)
Если что-нибудь еще понадобится-обращайся)
всегда рада помочь)))
Приложения:
Ответ дал: RazStor1
0
рад бы вам писать, но есть проблема, я еще не могу писать пользователям)
Ответ дал: RazStor1
0
дали бы вы мне ссылочку в вк или номер в телеграмме и ватсап
Ответ дал: Аноним
0
здесь ссылки полностью писать нельзя, но ечли напишу id от вк, сможешь найти?)
Ответ дал: RazStor1
0
думаю смогу)
Ответ дал: Аноним
0
olenka_vladimmirovna
Ответ дал: Giammy
0

// 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.

Приложения:
Вас заинтересует