Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность) Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чётных чисел кратных 5. Для записи программы используйте приведенные переменные:
var a, n: integer
begin
n:=0
readln (a)
...
writeln(n)
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), остальные флаги не меняются.

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