Листинг программы и скриншот результата в приложениях.
Написано на PascalABC.NET но должно работать на всех Паскалях.
Var b,i,k,n: int64;
begin
readln(n);
b:=1;
for i := 1 to n do
b:=b*i;
writeln(b);
end.
Входные данные подставлять в переменную n
Ответ: 3
Объяснение: 8 бит = 1 байт
Если размер предложения в байтах (!) оказался на 5 больше, то название нового животного вместе с запятой и пробелом - 5 байт, а без запятой и пробела - 5-1-1 байт = 3 байта, значит длина слова - 3 символа.
Здесь задают вопросы по школе) а не по играм!
Хоть я и сам задрот во все игры!