Вопрос Помогите написать программу на Паскале

[айратфйрат]

Нужно написать программу которая считывает количество различных букв. Например в слове door
Входные данные door
Выходные данные: d-1
o-2
r-1

 

[Pomeha48rus]

Создать массив по числу букв в алфавите и увеличивать элемент массива

 

[Scroll]

Создать массив по числу букв в алфавите и увеличивать элемент массива, который соответствует конкретной букве. Индексом будет ASCII код буквы (символа) нпрм ASCII(a)=97, значит j:=ord(string)-96; dec(array(j)); выводить надо по условию if array(i)>0 then write(char(i+96),array(i));