Для начала необходимо разбить текст по две цифры. В каждой паре цифр: первая цифра - номер строки в таблице, вторая цифра - номер столбца в таблице. По данным координатам находим букву в таблице и записываем. В итоге получаем зашифрованное слово. Ответ, получившийся у меня, прилагаю на фотографии. Т.к. получился набор букв (но созвучно выражению "ЧТО? ГДЕ? КОГДА?") предположу, что в условиях задачи есть ошибка. Или, возможно, зашифрован бессмысленный набор букв.
Var n,k,i:integer;
y:longint;
begin
readln(n);
k:=1;
y:=1;
for i:=1 to n+1 do begin
y:=y*k;
k:=k+2;
end;
writeln(y);
end.
Потому что компьютер универсальный (т.е. может использоваться в самых различных областях) и он управляется программным обеспечением
Var
s:string;
max,min,i,k:integer;
begin
write('Введите строку: ');
readln(s);
s:=s+' ';
for i:=1 to length(s) do
begin
if s[i]=' ' then
begin
if k>max then max:=k;
if (k<min) or (min=0) then min:=k;
k:=-1;
end;
k:=k+1;
end;
writeln('Самое короткое: ',min,'; самое длиное: ',max);
<span>end.</span>