Автор - Ivanmalugin 5 лет назад

Написать программу (паскаль) входные и выходные данные, пожалуйста очень срочно

Ответ

Проверено экспертом

Автор - AnonimusPro

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.

Предыдущий вопрос Следующий вопрос

Ответы и объяснения

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.

© 2025 Все права защищены Политика конфиденциальности Контакты