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