59 * 16 = 944 бита!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Uses crt;
var s,i,x : integer;
begin
Read(x);
For i:=1 to 5 do begin
s:=s + (x mod 10);
x:=x div 10;
end;
Write (s);
end.
Язык - ПаскальABC
Если хочешь можешь еще сделать проверку на пятизначное число.
В строке 16 символов (включая пробелы).
Различных символов 11 (это "П", "р", "и", "е", "д", "у", " ", "в", "ч", "т", "г"). Так как 2^3 < 11 < 2^4, то на кодирование одного символа нужно не менее 4 бит.
Объем сообщения 16 символов * 4 бит/символ = 16 * 4 бит = 8 байт
(1 байт = 8 бит).