// Привет дедам
const M = 5;
const N = 12;
var matrix: array [1..M, 1..n] of integer;
var i, j, count: integer;
begin
for i := 1 to M do
begin
for j := 1 to N do
begin
matrix[i, j] := random(-98, 54);
write(matrix[i, j]:4);
end;
writeln();
end;
writeln();
writeln('Кол-во четных элементов: ');
for j := 1 to N do
begin
count := 0;
for i := 1 to M do
begin
if matrix[i, j] mod 2 = 0 then
inc(count);
end;
write(count:4);
end;
end.
Если это задали в школе/университете, то это очень странно. Предоставленная строка может быть случайной, а может быть хэш-суммой. Длина суммы — 128 бит. Популярные хэш-функции с такой длиной — MD2, MD4, MD5. И исходную строку получить очень проблематично. Так что лучше забыть про эту строку. Для поиска значения может " " перебор (нет), либо поиск по базе уже найденных значений хэш-функций (я поискал в бесплатных онлайн базах, но положительного результата не получил). На этом, как бы, мои полномочия все.
ответ: переменной "с" целочисленного типа присваивается значение 10 умножить на ту же переменной "с" целочисленного типа (без учета текущих расчетов) плюс остаток от деления переменной "а" целочисленного типа на 10 при операции mod.
a := a div 10;
ответ: переменной "a" целочисленного типа присваивается целая часть от деления переменной "а" до текущего шага на цифру 10.