olesyashazk5055
?>

Программисти ! (паскаль)Оператори програми переставлені в випадковому порядку. Складіть з нихпрограму для обчислення функції (оператори можна копіювати і вставляти всередовище програмування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)​​

Информатика

Ответы

Darya Aleksei1173

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

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Программисти ! (паскаль)Оператори програми переставлені в випадковому порядку. Складіть з нихпрограму для обчислення функції (оператори можна копіювати і вставляти всередовище програмування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)​​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

gulsinatahckeeva
Оксана170
Ioanova Korneeva1093
Sergeevich-Novikov
irinaastapova2011
savva-vika
Nikolaevna382
rashodnikoff
karpovaveronika196
npprang21
vet30
shajmasha
yelena
Павел_Перелыгин
karavan85450