Предмет: Информатика,
автор: Ivanmalugin
Написать программу (паскаль) входные и выходные данные, пожалуйста очень срочно
Приложения:
Ответы
Автор ответа:
0
var x,y: integer;
begin
readln(x);
if x>1 then y:=x-1
else if x<-1 then y:=x+1
else y:=0;
write(y);
end.
Интересные вопросы
Предмет: Математика,
автор: Makaka64545
Предмет: Музыка,
автор: sola711
Предмет: Химия,
автор: Tetris321
Предмет: Химия,
автор: Fufel111
Предмет: Литература,
автор: Артем11127