Множество первых букв русского алфавита.
Содержится всего 1 элемент: буква "А"
Program n1;
var n: integer; b: boolean;
begin
readln(n);
n := abs(n);
b := false;
repeat
b := (n mod 10 = n mod 100 div 10) and (n > 0);
n := n div 10
until b or (n <= 9);
if b=false then writeln('no') else writeln('yes');
end.
Во вложении
-------------------
Кодировка(размер 1 символа) находить по формуле N=2^i.
N - кол-во символов в алфавите.
i - кодировка в битах.
Исходя из этого у тебя 4х битовая кодировка.
Ну и просто умножаешь 4 бита на кол-во символов. Раскладывай все множители на 2 в степени.
1 байт = 8 бит = 2^3 байт.
1 Кбайт = 1024 байт = 2^10 байт.
Поэтому размер из битов в килобайты можно перевести, просто поделив на 2^13.
У меня получилось 835 2/3 Кбайт.