Опубликовано 6 лет назад по предмету Информатика от RazStor1

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

Ответ

Ответ дан Аккаунт удален

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

Ответ дан Giammy

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