Здрвствуйте, с : покажите как в памяти компьютера будут записаны числа? какие биты выделяются для записи знака числа? и числа: +112 и -112

Первый бит обозначает знак. (0 +) (1 -)

// pascalabc.net 3.2, сборка 1407 от 18.03.2017 // внимание! если программа не работает, обновите версию! begin   var a,b: integer;   write('введите границы интервала: '); read(a,b);   if a> b then swap(a,b); // страховка от злобных буратинок   var k: =range(a,b).where(m-> sqr(sin(m))+cos(m*m)< 0).count;   writeln('на интервале найдено отрицательных значений- ',k) end. пример введите границы интервала: -3 10 на интервале найдено отрицательных значений- 4

// pascalabc.net 3.2, сборка 1407 от 18.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =readlnstring('вводите: ').towords;   var c: =a[0].last;   writeln('найдено ',a.where(w-> w.first=c).count,           ' слов, начинающихся с "',c,'"') end. пример вводите: туча дождь астроном баран арбуз зебра астра велосипед найдено 3 слов, начинающихся с "а" вариант "а нас в школе учат так", который якобы "проще" var   s: string;   c: char;   i,k,l,p: integer; begin   // предполагается, что слова разделены ровно одним пробелом   write('вводите: '); readln(s);   l: =length(s);   if l=1 then writeln('найдено одно слово')   else begin       p: =pos(' ',s);       if (p=0) and (s[1]=s[l]) then writeln('найдено одно слово')       else begin           c: =s[p-1];           if s[1]=c then k: =1 else k: =0;           for i: =p+1 to length(s)-1 do               if (s[i]=' ') and (s[i+1]=c) then inc(k);               writeln('найдено ',k,' слов, начинающихся с "',c,'"')           end       end end.