Ответы на вопрос:
var x, y: real;beginread(x);if x<=3 then y := x*x + 3*x + 9else y := sin(x)/(x*x -9);write(y);end.
PascalABC.NET:
beginvar f: real->real := x -> x<=3 ? x*x + 3*x + 9 : Sin(x)/(x*x - 9);f(ReadReal).Print(x)end.Популярно: Информатика
-
mastheadchan119.04.2021 16:39
-
ruslankz0218.11.2022 22:22
-
алекс161128.12.2020 03:59
-
gonigh11.09.2020 11:32
-
radovdima26.08.2021 22:31
-
egorhoyrovegiror25.08.2021 12:28
-
ladushiklevonik108.06.2022 03:16
-
Alina5789129.11.2022 06:28
-
katerinaket0428.10.2022 09:09
-
Pandorica05.09.2020 18:29