1 старик
2 золотой рыбкой
3 золотая рыбка - управляет вещами
Сообщений, в смысле словосочетаний может быть хоть сколько много, а вот различных слов может быть 8*8*8 (8 в 3 степени)
29,25,21,17,13,9,5. Те каждое следующее число уменьшается на 4)
===== PascalABC.NET =====
procedure pK(n: integer; var k: int64);
begin
k := 1;
for var i := 2 to n do
k *= i
end;
function fK(n: integer): int64;
begin
Result := 1;
for var i := 2 to n do
Result *= i
end;
begin
var n := ReadInteger('n =');
var r: int64;
pK(n, r);
Println('Процедура:', r);
Println('Функция:', fK(n))
end.