Question

Составить приложение на языке Pascal.

Вычислить на ПК значения функции, заданной в таблице. На печать
вывести значения вводимых исходных данных и полученные результаты,
сопровождая их именами переменных. Значения аргумента взять из
указанного диапазона так, чтобы протестировать все ветви программы.

 

Answer 1

var a,x,b:real;

Begin

  read(a,x);

  if x>4 then b:=x*ln(x*x);

  if x<3 then b:=a*cos(x);

  writeln(b);

End.