Вообще-то для решения задачи нужно знать коды ВСЕХ символов, составляющих это слово. Эти коды такие
h 104 68h
e 101 65h
l 108 6Ch
o 111 6Fh
Таким образом, последовательность десятичных кодов слова будут
hello = 104 101 108 108 111
Но, скажу тебе по секрету, десятичными кодами практически никто не пользуется, более привычно работать с 16кодами, они будут такими
hello = 68 65 6C 6C 6F, ну или в двоичном представлении, естественно
hello = 0110 1000 0110 0101 0110 1100 0110 1100 0110 1111
Вот и всё!
Правда, возникает вопрос, откуда я узнал все эти коды. Я просто заглянул в таблицу кодов!
Однако, судя по условию задачи, остальные коды нужно ВЫЧИСЛИТЬ, зная только код буквы е. Это тоже легко сделать, зная структуру таблицы ASCII. Она следующая - коды идут последовательно, буквы упорядочены по алфавиту, сначала большие, потом маленькие. Зная это, можно написать кусок алфавита от е до о(нам больше не нужно), под е написать её код, который нам дан, а остальным буквам соответственно +1. Получим следующую табличку
e f g h i j k l m n o
101 102 103 104 105 106 107 108 109 110 111
Ну вот теперь совсем всё!
Успехов!
a, c : integer;
con, rep : array [0..9] of boolean;
begin
read (a);
while a > 0 do
begin
c := a mod 10;
a := a div 10;
if not con[c] then con[c] := true
else rep[c] := true;
end;
for c := 0 to 9 do
if rep[c] then write (c, ' ');
end.