Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Составить программу для вычисления значения функции y(х): y={0, если 0<х<=2, y= {2,если х>2, y= {-3х в остальных случаях.

Ответ оставил Гость

Var
  x,y:real;
begin
  Write(x=); Read(x);
  if x<=0 then y:=-3*x
  else
    if x>2 then y:=2 else y:=0;
  Writeln(y=,y)
end.