Для начала, переведем код в десятичную систему счисления.
110100102 = 21010
110011002 = 20410
110011112 = 20710
110100112 = 21110
Получаем: 210 204 207 211
Зная, что буква «А» кодируется как 192, а код каждой последующей буквы на 1 больше кода предыдущей буквы. Определим код остальных букв и расшифруем наше слово.
А-192
Б-193
В-194
Г-195
Д-196
Е-197
Ё-198
Ж-199
З-200
И-201
Й-202
К-203
Л-204
М-205
Н-206
О-207
П-208
Р-209
С-210
Т-211
У-212
Ф-213
Х-214
Ц-215
Ч-216
Ш-217
Щ-218
Ъ-219
Ы-220
Ь-221
Э-222
Ю-223
Я-224
СЛОТ
program raf105;
var
a: integer;
b: array[1..10] of integer;
i: integer;
begin
b[1]:=10; b[2]:=15; b[3]:=12; b[4]:=13; b[5]:=7;
b[6]:=8; b[7]:=11; b[8]:=14; b[9]:=17; b[10]:=20;
for i:=1 to 10 do
if b[i]>10
then a+= 1
else continue;
writeln(a);
end.
PascalABC 3.4.2