Помогите с программой на Pascal

компьютеры программирование программы делфи

Вводится некая произовальная строка на латинице.После этого программа должна вывести каждый элемент,который встречался в строке и кол-во раз сколько встрачался в строке.
Например:
Ввод:aasdfgfasgas
Вывод:
a – 4
s – 3
d – 1
f – 2
g – 2
Ответы:
var a:array[#0..#255]of byte;c:char;i:byte;s:string;begin readln(s);for i:=1 to length(s) do inc(a[s[i]]);for c:=#0 to #255 do if a[c]>0 then writeln(c,' - ',a[c]);end.


14 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.