Поскольку числа, которыми закодировали сообщение могут принимать значения только от 1 до 33, то, если в сообщении рядом стоящие цифры будут вместе образовывать число, не входящее в данный промежуток
(или же, если первая цифра имеет значение от 1 до 3, а вторая будет 0), то сообщение можно будет декодировать однозначно, следовательно подходит только 3652, поскольку (36; 65; 52)>33.
Ответом на задачу является сообщение "ВЕДБ".
===== PascalABC.NET =====
begin
var s := 0.0;
for var j := 1 to 3 do
begin
var p := 1.0;
for var i := 1 to 3 do
p *= 2 ** (i + j) / (i * i + j * j * j);
s += p
end;
Println(s)
end.
var s,summ:integer;
begin
writeln("До какого числа считать");
readln(s);
for i:=1 to s do
if i mod 5=0 then
summ:=summ+i;
writeln(summ);
end.