Запиши программу на языке Паскаль для:y = 0, если x

Запиши программу на языке Паскаль для:
y = 0, если x 0
x, если 0 lt; x 1
x, если x gt; 1
(y:3:0)
Запусти программу и введи значение x = 6

Я не понимаю... Помогите, пожалуйста!

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

Вывод:

36

Код программки:

program raf105;

var

 x,y: real;

begin

 write('x = ');

 readln(x);

 if x lt;= 0

   then y:= 0;

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

   then y:= x;

 if x gt; 1

   then y:= power(x,2);

 writeln('y = ',y:3:0);

end.

PascalABC 3.4.2

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


Последние вопросы

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

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

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

Войти на сайт