При алфавитном подходе к измерению количества информации известно, что если мощность алфавита N (количество букв в алфавите), а максимальное количество букв в слове, записанном с помощью этого алфавита – m, то максимально возможное количество слов определяется по формуле L=N^m. Из условия задачи известно количество слов (L=625) и количество букв в каждом слове (m=4). Надо найти N из получившегося уравнения 625=N^4. Следовательно, N=5.
В фигурных скобках добавил комментарии
{определяем процедуру вправо-вверх}
ПРОЦ вправо_вверх
ПОКА сверху свободно И справа свободно ДЕЛАТЬ
вправо; вверх; закрасить;
КОНЕЦ
{определяем процедуру вправо-вниз}
ПРОЦ вправо_вниз
ПОКА снизу свободно И справа свободно ДЕЛАТЬ
вправо; вниз; закрасить;
КОНЕЦ
ПРОГРАММА зигзаг;
{перемещаем Робота в левый нижний угол}
ПОКА слева свободно ДЕЛАТЬ
влево
КОНЕЦ
ПОКА снизу свободно ДЕЛАТЬ
вниз
КОНЕЦ
{закрашиваем первую клетку}
закрасить;
{двигаемся, пока не упрёмся в правую стенку}
ЕСЛИ справа свободно ТО
вправо_вверх;
вправо_вниз
КОНЕЦ
Const
m = 10;
var
a: array[1..m+1] of integer;
i, k: integer;
begin
write ('Исходный массив: ');
for i := 1 to m do
begin
a[i] := random(100);
write (a[i],'; ');
end;
writeln;
write('Введите число: ');
readln(k);
for i:=m+1 downto 1 do
begin
a[i]:=a[i-1];
if a[i] mod 2=0 then
begin
a[i-1]:=k;
break;
end;
end;
write('Измененный массив: ');
for i := 1 to m+1 do
write (a[i],'; ');
<span>end.</span>
4 да я знаю я это самастаятельную прохадил