Если в текущей выполняемой процессором команде не указан адрес следующей команды программы, то процессор выбирает эту команду: Выберите один или несколько правильных ответов

из ячейки памяти, адрес которой находится на вершине стека

из ячейки памяти, адрес которой находится в регистре-указателе стека

из ячейки памяти, адрес которой находится в регистре команд процессора

процессор обращается за этим адресом к внешнему запоминающему устройству

из ячейки памяти, следующей за ячейкой памяти текущей команды

процессор ждет ввода адреса этой команды программистом с клавиатуры

процессор переходит к команде, находящейся в первой ячейке памяти

процессор переходит для повторного выполнения команды, предшествующей текущей

процессор обращается за этим адресом к команде, предшествующей выполняемой

из ячейки памяти, адрес которой находится в регистре состояния процессора

из ячейки памяти, адрес которой находится в регистре-счетчике команд процессора

1)

высказывание   не (не  а  и  b)  будет ложным когда высказывание

(не  а  и  b)   будет истинным, оно в свою очередь будет истинным когда

будут истинны одновременно высказывание  не  а  и   высказывание  b

то есть когда а ложное а в истинное

2)

число 376 трехзначное и четное

а=число 376 трехзначное

в=число 376 четное

а и в

или

если сумма цифр числа делится на 3, то число делится  на  3

а=сумма цифр числа делится на 3

в=число делится  на  3

если а то в

uses graph;                                           {подключен модуль graph}var x,y,h: integer; procedure grinit;       {процедура инициализации режима графики}var      graphdriver: integer;                   {для графического адаптера}      graphmode  : integer;                   {для графического режима}      errorcode  : integer;                   {для кода ошибки}begin      graphdriver : =detect;                   {режим автоопределения}      initgraph(graphdriver ,graphmode,''); {инициализация}      errorcode : =graphresult;             {результат инициализации}      if errorcode < >   grok then        {если не успешно,}      begin            writeln('ошибка графики: ',grapherrormsg(errorcode ));             writeln('программа остановлена.');             halt(1)      end {if}end; begin      grinit;                                                           {вызов инициализации}      x: =getmaxx div 2;       y: =getmaxy div 2;       h: = 30; {кол-во шагов до финиша}      while x+y> 0 do      begin        cleardevice;             circle(x, y, 10);             delay(100);             x: = x + getmaxx div h;             y: = y - getmaxy div h;       end;       readln;                                                 {пауза до нажатия }      closegraph;                                 {закрытие графического режима}end.

9 кбатй = 73728 бит

73728/1536=48сек

1024*48=49152бит=6164 байт ( 1 байт = 8 бит)

  держи:

program kk; uses crt; var a: array [1..5,1..5] of integer; i,j: integer;   beginclrscr; randomize; for i: =1 to 5 dobeginfor j: =1 to 5 doa[i,j]: = random(90)+10; end; for i: =1 to 5 dobeginfor j: =1 to 5 do write(a[i,j],' '); writelnend; writeln; writeln; for i: =1 to 5 dobeginfor j: =1 to 5 dobegin  if (a[i,j] > 0) and (a[i,j] mod 3 = 0) thenbeginwriteln(a[i,j],' [',i, ',',j,']'); end; end; end; readkey; end.