помогите пожалуйста!!!необходимо посодействовать написать программку.

Помогите пожалуйста!!!
необходимо помочь написать программку.

Задать свой вопрос
Sofija
pascal?
Darja
да
1 ответ

program fantscrin;

   var  x,f:real;

begin

    write('X = '); readln(x);

    if (xlt;-2) then f:=-2;

    if ((xlt;2)and(xgt;-2)) then f:=x*x*x;

    if (xgt;2) then f:=x+2;

     

    writeln(f);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт