<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger;
var (s,d,e):=(n div 100, (n div 10) mod 10, n mod 10);
Writeln('Cотни ',s,', десятки ',d,', единицы ',e);
Writeln('Сумма цифр ',s+d+e,', их произведение ',s*d*e);
Writeln('Справа налево: ',100*e+10*d+s);
Writeln('Перестановка сотен в конец: ',100*d+10*e+s)
end.
<u>Пример</u>
328
Cотни 3, десятки 2, единицы 8
Сумма цифр 13, их произведение 48
Справа налево: 823
Перестановка сотен в конец: 283
16 бит - вес 1 знака
вес всего файла= скорость на время = 512000 бит
количество знаков = вес всего файла/вес одного знака = 512000/16=32000бит
1 символ = 1 байт
Если
15 - 2 байт
15 - 2 байт
15 - 2 байт
= 6 байт * 92 = 552 байт
Если
-15 - 2 байт
-15 - 2 байт
-15 - 2 байт
= 6 байт * 92 = 552 байт
Если
15 - 2 байт
1 - 1 байт
15 - 2 байт
= 5 байт * 92 = 460 байт
Если
15 - 2 байт
1 - 1 байт
1 - 1 байт
= 4 байт * 92 = 368 байт
Если
1 - 1 байт
1 - 1 байт
1 - 1 байт
= 3 байт * 92 = 276 байт
Оценки 1-5 нумеруем от 0 до 4
Максимальное число 4 = 100 в 2 сс и занимает 3 бита
Любая отметка занимает 3 бита
Ответ: 3 бита
Также если предположить что возможная отметка всегда от 2 до 5 то руковотствуясь ттеми же выкладками ответ будет 2 бита