Как выглядит десятичное число -108,2 в экспоненциальном виде​

101=1*8^0+0*8^1+1*8^2=1*1+0+64=(65) в десятичной

1в=в*16^0+1*16^1=12*1+1*16=12+16=28 в десятичной

65-28=37

38 в десятичной , но такого ответа нет, значит надо перевести 37 в двоичную систему. для этого 38 делим на 2 пока делится

38/2=19 остаток0

19/2=9 остаток 1, уже видно что двоичный второй ответ не подходит, там нет нуля.

  попробуем переведем в восьмеричную, для этого делим 38 на 8.

38/8=4 остаток 6, получается 46 в  8 сс.  ответ 4 

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.

письменность была нужна для оформления сделок, фиксации движения товаров, выручки, учета,  финикийцы известны, прежде всего, как предприимчивые торговцы и отважные мореплаватели.

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.