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

Предыдущий
вопрос Следующий
вопрос

program QuadraticFunction;
var x, y: real;
begin
write('Введите значение x: ');
readln(x);
if x <= 0 then
y := 0
else if (x > 0) and (x <= 1) then
y := x
else
y := x * x;
writeln('Число, выведенное на экран: ', y:3:0);
end.

При вводе значения x=-17 программа выведет:

Число, выведенное на экран: 0