Решить задачу через Pascal ABC. Напишите программу в pascal которая будет решать эту задачу.
136
479
Ответы на вопрос:
PascalABC.NET
begin
var a := 5;
var x := Readinteger('Введите x ->');
var f := x > 1 ? ln(x+1) : cos(x**2+2*10**-5);
Println('F = ', x = 1 ? sin(sqr(sqrt(abs(a*x)))) : f);
end.
Популярно: Информатика
-
lisa1701200606.04.2020 21:35
-
sasharuf200025.08.2021 20:24
-
ladushiklevonik112.06.2021 02:49
-
Anastasia1tsv07.03.2020 02:48
-
DanielB200816.04.2020 11:31
-
savannah124.10.2020 04:50
-
TESSORO14.03.2022 11:02
-
Phelper14.07.2022 16:02
-
sjs222.01.2021 03:00
-
abekeev12.01.2023 00:26