Составить алгоритм нахощие значение y(игрик) если y=x при условии x<0 y=0 при условии...

Question

Составить алгоритм нахощие значение y(игрик) если y=x при условии x<0 y=0 при условии если x(икс) находится в диапозоне от 0 до 30

Answer 1

Var x,y:real;beginreadln(x);if x<0 then y:=x       else if (x>=0) and (x<=30) then y:=0;writeln(y);end.