Дмитрий Заботин
Знаток
(396)
9 лет назад
на каком языке? Думаю паскаль, тогда так
program z11;
var
y,x:integer;
begin
write(x);
read(x);
if (x<=500) and (x>=-500) then y:=0 else begin if x>5000 then y:=1 else y:=-1 end;
writeln(y);end.
UPD: исправил на входные данные