Question

Программисти ! (паскаль)

Оператори програми переставлені в випадковому порядку. Складіть з них
програму для обчислення функції (оператори можна копіювати і вставляти в
середовище програмування).

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)​​

Answer 1

Правильная рограмма на 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.