Pascal: в области 10 районов. для каждого района известны площади, засеянные пшеницей и урожай собранный с этих площадей. определить, в каком районе средняя урожайность пшеницы была выше

Type
  rec=record
    s:integer;
    n:integer;
  end;
var
  i,maxi:integer;
  max:real;
  ar:array [1..10] of rec;
begin
  max:=-maxint;
  for i:=1 to 10 do begin
    readln(ar[i].s,ar[i].n);
    if ar[i].n/ar[i].s>max then begin
      max:=ar[i].n/ar[i].s;
      maxi:=i;
    end;
  end;
  writeln(maxi,' ',ar[i].n/ar[i].s);
end.

В тер­ми­но­ло­гии сетей TCP/IP мас­кой сети на­зы­ва­ет­ся 32-раз­ряд­ная дво­ич­ная По­сле­до­ва­тель­ность, опре­де­ля­ю­щая, какая часть IP-ад­ре­са узла сети от­но­сит­ся к ад­ре­су сети, а какая – к ад­ре­су са­мо­го узла в этой сети. При этом в маске сна­ча­ла (в стар­ших раз­ря­дах) стоят еди­ни­цы, а затем с не­ко­то­ро­го места нули.Адрес сети по­лу­ча­ет­ся в ре­зуль­та­те при­ме­не­ния по­раз­ряд­ной конъ­юнк­ции к за­дан­но­му IP-ад­ре­су узла и маске. Обыч­но маска за­пи­сы­ва­ет­ся по тем же пра­ви­лам, что и IP-адрес – в виде четырёх бай­тов, причём каж­дый байт за­пи­сы­ва­ет­ся в виде де­ся­тич­но­го числа.При­мер. Пусть IP-адрес узла равен 231.32.255.131, а маска равна 255.255.240.0. Тогда адрес сети равен 231.32.240.0. Для узла с IP-ад­ре­сом 227.138.127.144 адрес сети равен 227.138.64.0. Чему равен тре­тий слева байт маски? ответ за­пи­ши­те в виде де­ся­тич­но­го числа.

По­яс­не­ние.12710 = 01111111206410 = 010000002За­ме­тим, что в маске во вто­ром бите слева долж­на сто­ять еди­ни­ца, а в тре­тьем бите слева — ноль. И так как мы знаем про маски, что в них сна­ча­ла идут еди­ни­цы, а потом нули, то по­лу­ча­ем, что тре­тий слева байт равен 110000002 = 19210
Пра­виль­ный ответ: 192

Если верить Wiki, микропроцессор КР580ВМ80А - аналог Intel i8080A.

На страничке с описанием i8080 утверждается, что INR reg - инкремент (увеличение на единицу) регистра. В данном случае рассматривается увеличение регистра B со значением 0xFF на единицу. У процессоров серии i80386 есть схожая команда - INC.

По всей вероятности, признаки в КР - то же, что и флаги в i8080. Тогда можно провести аналогию КР - i8080:

CY - CF (перенос)

AC - AF (полуперенос)

S - SF (знак)

Z - ZF (нуль)

P - PF (чётность)

Выполнение команды INC BH (на Intel, BH - 8-битный, как и B в КР) с значением 0xFF даёт 0 в регистре BH и устанавливает в единицу ZF, PF, AF (соотв. признаки Z, P, AC), остальные флаги не меняются.

За правильность решения не ручаюсь.