Запиши программу ** языке Паскаль для:y={0,если x≤0{x,если 01Запусти программу и введи...

Question

Запиши программу на языке Паскаль для:y={0,если x≤0{x,если 01Запусти программу и введи значение x=18.Число выведенное на экран:[ ]срочно пожалуйста​

Answer 1

Ответ:

program z1;

var

 x: real;

begin

 writeln('x=');

 readln(x);

 begin

   if x <= 0 then</p>

     writeln('y=0', ';') end;

 begin

   if 0 < x then

     writeln('')

   else if x <= 1 then</p>

     writeln('') end;

 begin

   if x > 1 then

     writeln('y= ', sqr(x));

 end;

end.

После ввода числа 18 на экране выводится число 324