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

Луноцапка Луноцапка    2   03.12.2019 12:41    0

Ответы
samo345 samo345  10.10.2020 18:05

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика