Question

Напишите программу в ABC Pascal.

Answer 1

var x,y: real;
begin
  write('x = '); readln(x);
  y:=0;
  if x>1 then y:=x*x-sin(x*x*pi);
  if (x>0) and (x<=1) then y:=x*x-x;
  writeln('f(x) = ',y);
end.

Answer 2

Если в трансляторе нет константы pi, то вместо нее можно записать 6*arctan(1/sqrt(3))