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

дано:

g= 44,1 кгц= 44100 гц

i= 16 бит

t=2 мин=120 сек

v-?

 

решение:

v=g*i*t

v= 44100гц*16 бит*120 сек= 8467200 бит

v= 8467200/8*1024*1024= 10 мбайт

//pascalabc.net //версия 3.3, сборка 1634 (14.02.2018) begin   var (cost, t, k) : = (arr(15, 70, 125, 230, 440), arr(1, 5, 10, 20, 60), new integer[5]);   var n : = readinteger('n-> ');   for var i : = 4 downto 0 do   begin     k[i] : = n div t[i]; n : = n mod t[i];   end;     if k[0] * cost[0] > = cost[1] then begin k[0] : = 0; inc(k[1]); end;   if k[0] * cost[0] + k[1] * cost[1] > = cost[2] then    begin     k[0] : = 0; k[1] : = 0; inc(k[2]);     end;   if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] > = cost[3] then    begin     k[0] : = 0; k[1] : = 0; k[2] : = 0; inc(k[3]);   end;   if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] + k[3] * cost[3] > = cost[4] then    begin     k[0] : = 0; k[1] : = 0; k[2] : = 0; k[3] : = 0; inc(k[4]);     end;       for var i : = 0 to 4 do writelnformat('{0} билет(ов)- {1} штук(а)', t[i], k[i]); end. пример(1): n-> 37 1 билет(ов)- 0 штук(а) 5 билет(ов)- 0 штук(а) 10 билет(ов)- 0 штук(а) 20 билет(ов)- 0 штук(а) 60 билет(ов)- 1 штук(а) пример(2): n-> 35 1 билет(ов)- 0 штук(а) 5 билет(ов)- 1 штук(а) 10 билет(ов)- 1 штук(а) 20 билет(ов)- 1 штук(а) 60 билет(ов)- 0 штук(а)

var s,i,n,a: integer;

begin

  read(a,n);

  s: =1;

  for i : = 1 to n do

      s: =s*a;

  writeln('a в степени n = ',s);

 

  s: =1;

  for i : = 1 to n do

      s: =s*i;

  writeln(s);

 

  s: =0;

  for i: = 1 to n do

  begin

    read(a);

    s: = s + a;

  end;

writeln('среднее арифметическое = ',s/n)

       

 

end.

такая

естественная

красота

самая

теплая

: dd что есть, то есть