//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.
Если один символ занимает х бит, то
х*60*50*5 - так ты узнаешь, сколько символов всего
А после делишь это число на 8, чтобы узнаешь, сколько это число в байтах, а потом на 1000, чтобы узнать, сколько это число в килобайтах
Нужно значит, сколько битов занимает один символ
Порядок действий
С:\Осень\Деревья\Клён
С:\Осень\Деревья
С:\Осень\Деревья\Полив
С:\Осень\Деревья\Полив
С:\Осень\Деревья
С:\Осень\Деревья\Уход
Ответ: 3
,,,,,,,,,,,,,,,,,,,,,,,,