Задачи на ветвление. Составить программу для вычисления функции:
0, при x≤0
y= x^2-x, при 0 x^2 -sin(πx^2), при нужно От

y=\begin {cases} -3, \quad x \leq 0 \\ x, \quad 0\ \textless \ x \leq 1 \\ x^2, \quad x \ \textgreater \ 1 \end {cases}

var

 x,y:real;

begin

 Write('Введите число: '); Read(x);

 if x<=0 then y:=-3

 else

  if x<=1 then y:=x else y:=sqr(x);

 Writeln('y=',y)

end.

Объяснение: