Запиши программу на языке Паскаль для: y=⎧⎩⎨⎪⎪0,еслиx≤0x,если01. (y:3:0) Запусти программу и введи значение x=−18.Число выведенное на экран:
Программа выведет: 0
Текст программы:
var x:real;
begin
writeln('Введите x');
readln(x);
if (x <= 1) then begin</p>
if (x <= 0) then </p>
writeln('0')
else
writeln(x);
end
writeln(x*x);
end.
а если 18 без минуса