Ответ:
2 строчка: 151
3 строчка: 86
4 строчка: 64
в 8-ую степень с помощью триад
в 10 с помощью степеней двойки
в 16-ую систему с помощью тетрад
//PascalABC.NET
//Версия 3.3, сборка 1634
function f(n: integer): integer;
begin
var fx:=1;
for var i:=2 to n do fx:=fx*i;
f:=fx;
end;
begin
var n:=ReadInteger('n=');
for var i:=0 to 9 do writeln('цифра ',i,' повторяется в числе ',f(n),' ',f(n).ToString.Where(x->x.ToDigit=i).Count,' раз' );
end.
Монитор системный блок клавиатура мышка