Предмет: Информатика, автор: archiefr23

Срочно!! Помогите решить через Паскаль. Буду благодарен)))

Приложения:

Ответы

Автор ответа: BobbyFresnel
0

===== PascalABC.NET =====

begin

 var x := ReadReal('x =');

 var y: real;

 if x < -1 then

   y := -x - 1

 else if x < 0 then

   y := x - 1

 else if x < 1 then

   y := -x + 1

 else

   y := x + 1;

 Println(y)

end.

Похожие вопросы
Предмет: Алгебра, автор: ezzamarria
Предмет: Математика, автор: softfox
Предмет: Русский язык, автор: kristinakalinina263