Question

Помогите пожалуйста! Очень нужно!

Запиши программу на языке Паскаль для: 0, если х ≤ 0 y = x, если 0 < x < 1. (y:3:0) x², если х > 1 Запусти программу и введи значение x=-12 Число выведенное на экран:|​

Answer 1

Ответ:

program task;

var

x, y: real;

begin

write('Введите значение x: ');

readln(x);

if x <= 0 then

y := 0

else if x < 1 then

y := x

else

y := x*x;

writeln('Результат: ', y:3:0);

end.

После запуска программы и ввода значения x=-12 на экран будет выведено число 0, так как x меньше или равен 0 и соответствующее значение переменной y было установлено равным 0.