Составить программку вычисления значения функции:ПОМОГИТЕ Безотлагательно ПОЖАЛУЙСТА

Составить программу вычисления значения функции:

ПОМОГИТЕ Безотлагательно ПОЖАЛУЙСТА

Задать свой вопрос
1 ответ

program raf105;

var x,y: real;

begin

write('x = ');

readln(x);  

if x lt;= 0

 then y:= power(x,2) - 0.3;

if (0 lt; x) and (x lt;= 1)

 then y:= 0;

if x gt; 1

 then y:= power(x,2) - x;

writeln('y = ',y);

end.

PascalABC 3.4.2

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


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

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

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

Войти на сайт