1)
пусть в данный момент времени некоторые регистры содержат:
(bx)=092ah, (sp)=ffeeh, (ip)=014fh, (ss)=3756h, (cs)=268ah, (ds)=26abh
каков (в шестнадцатеричной системе) адрес ячейки оп, содержащей младший байт следующей исполняемой на цп инструкции?
2)
запишите содержимое (в шестнадцатеричной системе) регистра dl, полученное в результате выполнения следующих операторов ассемблера:

mov dl, 0f1h
mov cl, 3
shr dl, cl
3)запишите содержимое (в шестнадцатеричной системе) регистра bx, полученное в результате выполнения следующих операторов ассемблера:

mov ax, 0111000110101110b
mov bx, 0b86ch
and bx, ax
4)запишите содержимое (в шестнадцатеричной системе) регистра bx, полученное в результате выполнения следующих операторов ассемблера:

mov bx, f461h
rol bx, 1
5)
пусть в данный момент времени некоторые регистры содержат:
(bx)=0a47h, (sp)=ef74h, (ip)=0532h, (ss)=bf36h, (cs)=4325h, (ds)=1d26h
каков (в шестнадцатеричной системе) адрес ячейки оп, содержащей старший байт вершины стека?
6)определите длину (в байтах) участка памяти, зарезервированного следующими операторами ассемблера:

m4 dq ? , ? , ?
per6 dw 7 dup (0)
text db 20h, ‘ ! ’, 20h, 64

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

на выходе 109

program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.

program xxx;

    var i, n : integer;

              a, s : real;

                    b : array [1..20] of real;

begin

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

  readln(a);

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива b: ');

  for i: =1 to n do

        readln(b[i]);

  writeln('исходный массив b: ');

  for i: =1 to n do

        writeln(b[i]);

  s: =0;

  for i: =1 to n do

      if b[i] > a then s: =s+b[i];

  writeln('сумма элементов =', s);

  readln

end.

как-то

program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('индексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end.