задачка для программистов

[Stilet]

могу отправить ответ вам в личку

Если задачка только для разгона серого вещества в черепушке то не надо. Своих приколов хватает )

задачка №4

Так подойдет?

   var x:integer;
begin
 x:=0;
 writeln(byte(x>0) - byte(x<0));
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[NuMeR]

Сообщение от Stilet

Так подойдет?

нет, Вы используете byte, >, <, а нужно сделать только с использованием арифметических и побитовых операций, т.е. +,-,*,div,mod,and,or,xor,not,shr,shl
> и < - это по сути уже условия