Ответ(ы) на вопрос:
Гость
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
var x,y:real;
begin
writeln('Введите Х ');
readln(x);
if x<-2 then y:=-2;
if x>2 then y:=2;
if (x<=2) and (x >=-2) then y:=x;
writeln('y = ',y);
end.
Не нашли ответ?
Похожие вопросы