Дано отрицательное число − 12 10 . в восьмиразрядном представлении:

12 в двоичном виде: 1*2^3 + 1*2^2 + 0*2^1 + 0*2^0 = 1100

запишем как отрицательное в прямом коде (старший разряд - знак (1), остальные без изменений):

1000 1100

в обратном коде (старший - знак, остальные инвертируются):

1111 0011

в дополнительном коде (обратный код + 1)

1111 0100

1.

program xxx;

var i, n : integer

begin

  writeln ('введите число n=');

  readln (n);

  writeln ('делители числа: ');

  for i: = 1 to n do

      if n mod i = 0 then writeln (i);

  readln

end.

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

program string_7; var s: string; k,l,i: integer; begin write('введите строку: '); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln('н=',k); writeln('м=',l); if k> l then writeln ('больше букв н'); if k< l thenwriteln ('больше букв м'); if (k = 0) and (l = 0) thenwriteln ('таких букв нет'); end.

так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))