Требуется ввести текст из строчных латинских букв, за которыми следует точка. Далее напечатать все буквы входящие в текст не менее двух раз. Текст вводится вручную! Заранее благодарю за помощь.
Примечание:
Требуется написать программу. Несколько не догоняю сам алгоритм поиска этих самых повторяющихся букв... на паскале это делалось на раз, однако тут несколько сложнее.
Примечание:
var
I, count: Integer;
Str, Temp, Temp2: String;
begin
str := 'akbjfuhu aa gjigdj oghfksgl';
for I := 1 to length(str) do
begin
if (Pos(Str[I], Temp) = 0) and (Str[I] <> ' ') then
Temp := Temp + Str[I]+'|';
end;
while Pos('|', Temp) <> 0 do
begin
count := 0;
for I := 1 to length(str) do
if Str[I] = Temp[1] then
inc(count);
if count > 1 then
writeln(Temp[1]+' = '+IntToStr(count));
Delete(Temp,1,Pos('|',Temp));
end;
end.
Как то так, если не заморачиваться на ручной ввод
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.