Вашу программу я сделал.
Ссылку отправляю в лс.
так как по не понятным причинам удалили пост.
Уважаемые модераторы, сюда не можно залить файлы проекта визуал бейсика..и как быть?
Function F(n: integer): integer;
begin
Writeln('Вход с n=',n);
if n < 5 then
Result := F(n + 3) + F(2 * n) + F(3 * n div 2)
else
Result := n + 2;
Writeln('Выход для n=',n,', F=',Result)
end;
begin
Writeln(F(3))
end.
Результат
Вход с n=3
Вход с n=6
Выход для n=6, F=8
Вход с n=6
Выход для n=6, F=8
Вход с n=4
Вход с n=7
Выход для n=7, F=9
Вход с n=8
Выход для n=8, F=10
Вход с n=6
Выход для n=6, F=8
Выход для n=4, F=27
Выход для n=3, F=43
43
Такие получились преобразования: НЕГА - ННЕГА - ММДВЯ - ММДВЯП - ЛЛГБЮО. Ответ - ЛЛГБЮО.
1958 - 11110100110
1962 - 11110101010
1982 - 11110111110
1984 - 11111000000
2004 - 11111010100
2014 - 11111011110
1985 - 11111000001
11*1024*8[bit]/11264 = 8 бит на символ
значит всего возможных символов 2^8 = 256