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

Помогите пожалуйста
(язык паскаль)

Приложения:

Омскаяптица: Язык?
yasrebov03: паскаль
Омскаяптица: В таком случае не смогу помочь

Ответы

Автор ответа: JagMort
3

Ответ:

var x,y: real;

begin

writeln ('введите х');

readln(x);

if x<-2 then y :=abs(x)+2

                    else if -2 <= x >= 2 then y := 1

                                             else y := x+1;

writeln ('y = ', y);

readln;

end.

Объяснение:

Похожие вопросы
Предмет: Алгебра, автор: svetylya476lya