y={x+50,1<x, 2x+20,x<1 0,x<1 немесе x>-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.

• Спасибо!

Реклама Реклама