Предмет: Информатика,
автор: archiefr23
Срочно!! Помогите решить через Паскаль. Буду благодарен)))
Приложения:
![](https://files.topotvet.com/i/f9d/f9d5973c2e5c9e8c51e67b07277e6a91.png)
Ответы
Автор ответа:
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
Предмет: Математика,
автор: andreewanatalia