Цифр, может быть?
для кодирования нужно 4 бита
var x,y:real;
begin
writeln('Vvedite x');
readln(x);
if x<1 then y:=abs(x) else y:=x*1/2;
writeln(y);
end.
Var n,s:integer;
begin
write('n = ');
readln(n);
s:=n mod 10;
while n>10 do n:=n div 10;
s:=s+n;
writeln('s = ',s);
end.
Пример:
n = 26319
s = 11