Var N, F, i :integer;
begin
writeln('введите число');
ReadLN(N);
F:=1;
for i:=1 to N do F:=F*N;
write('факториал числа ',N,' = ',F);
end.
Всего 6 символовв алфавите, значит на 1 символ отводится 3 бита информации
В книге 4000+1000+2000+1500+500+1000=10 000 сиаволов
Значит в книге содержится 30 000 бит инофрмации
Решение:
3.4)
6.1)
Остальное сам(а).