//PascalABC.Net 3.2
begin
var x:=readinteger ('Введите x: ');
var sum:=0;
repeat
sum+=x mod 10;
x:=x div 10;
until x=0;
writeln ('Сумма цифр: ', sum);
writeln ('Сумма заканчивается на 3: ', (sum mod 10)=3);
writeln ('Сумма четная - ', sum.Iseven);
end.
Для этого сначала переведем 33554432 в биты получилось:
33554432 = 33554432
Теперь переведем его в мегабайты
33554432 = 4
K(кол-во символов в сообщении) = 3*40*60 =7200
N(мощность алфавита) = 64 = 2^6
7200*6=43200 бит=5400 байт.
Ответ:5400 байт