Поделитесь своими знаниями, ответьте на вопрос:
Программисти ! (паскаль)Оператори програми переставлені в випадковому порядку. Складіть з нихпрограму для обчислення функції (оператори можна копіювати і вставляти всередовище програмуванняelse if (x>= -10) and (x<= 10)else y:=2*x+1;Var x, y: real;if x<-10then y:= 3*x*x*x - x*xWriteln ('y= ', y:4:2); End.then y:= sqrt(10-x)Program Fynksija;BeginWrite ('x= ');Readln (x)
Правильная рограмма на PascalABC.NET:
Program Fynksija;
Var x, y: real;
Begin
Write ('x= ');
readln(x);
if x<-10 then y:= 3*x*x*x - x*x
else if (x>= -10) and (x<= 10) then y:= sqrt(10-x)
else y:=2*x+1;
Writeln ('y= ', y:4:2);
End.