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

Помогите пожалуйста, очень срочно
В Паскале

Приложения:

Ответы

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

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

begin

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

 var y: real;

 if x >= 1 then

   y := 1

 else if x <= -1 then

   y := -1

 else

   y := 0;

 Print(y)  

end.

Похожие вопросы
Предмет: Другие предметы, автор: FoxyYouTuber777
Предмет: Математика, автор: Paw11