Question

Решить задачу через Pascal ABC. Напишите программу в pascal которая будет решать эту задачу.

Answer 1

                                              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.