Question

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

Число выведенное на экран:[ ]

срочно пожалуйста
​

Answer 1

Ответ:

program z1;

var

 x: real;

begin

 writeln('x=');

 readln(x);

 begin

   if x <= 0 then

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

 begin

   if 0 < x then

     writeln('')

   else if x <= 1 then

     writeln('') end;

 begin

   if x > 1 then

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

 end;

end.

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