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

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

Программа на языке Паскаль:

program CalculateY;
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: ', y:3:0);
end.

После запуска программы и ввода значения x=19, программа выведет значение y=361.