Ответ(ы) на вопрос:
ГостьProgram asd;
Var
x,y:real;
Begin
Write('x= ');
Readln(x);
If (x<=0)
then y:=x+2
else
If (x>0) and (x<3)
then y:=-x+2
else
If (x>=3)
then y:=-2;
Writeln('y= ',y);
End.
Тестовые значения:
x= 5
y= -2
Не нашли ответ?
Похожие вопросы