y={x+50,1

Question

y={x+50,1-1 помогите пожалуйста! ​

Answer 1

// PascalABC.Net

var x, y: integer;

begin

   write('Введите x: ');

   readln(x);

   if x > 1 then

       y := x + 50;

   if x < 1 then

       y := 2*x + 20;

   if (x < 1) or (x > -1) then

       y := 0;

   writeln('y = ', y);

end.

Comments

Спасибо!