По программированию на паскаль, нужна . дана строка состоящая из строчных букв алфавита. необходимо определить какие буквы встречаются в этой строке больше одного раза. формат входных файлов: входной файл содержит одну строку s длиной не более чем 100 символов, состоящую из букв a,b, выходной файл должен содержать в алфавитном порядке последовательность букв строки s, которые встречаются в ней больше одного раза. каждая буква выводится не больше одного раза.
171
212
Ответы на вопрос:
Var t1,t2: text; s: string; k: array['a'..'z']of integer; i: integer; c: char; begin assign(t1,'input.txt'); reset(t1); assign(t2,'output.txt'); rewrite(t2); readln(t1,s); for c: ='a' to 'z' do k[c]: =0; for i: =1 to length(s) do k[s[i]]: =k[s[i]]+1; for c: ='a' to 'z' do if k[c]> 1 then write(t2,c); writeln(t2); close(t1); close(t2); end. пример: файл input.txt: xyzabcdefgabcdx файл output.txt abcdx
// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin var s: =readalltext('input.txt'); writealltext('output.txt',s.groupby(c-> c).select(t-> (t.key,t.count)) .where(t-> t[1]> 1).select(t-> t[0]).orderby(t-> t).joinintostring('')) end. пример во входном файле input.txt записана строка petrwpoqwwefrnmvndihbgfuiusbnyaysinrivniweuwepkwqeofkwpr в выходном файле output.txt будет получена строка befiknopqrsuvwy
n = int(input())
for i in range(1,n+1):
print("2"*i,end=" + ")
print("2"*(n+1))
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Киска1110284410.03.2020 09:08
-
krskapoval09.09.2022 02:18
-
DVazovskaya30.03.2020 06:08
-
Aknur22122.07.2022 05:48
-
Dilnaz20030124.02.2020 04:26
-
Lichnosti23.09.2020 04:05
-
tatsawi16.04.2020 05:29
-
polinfasdfg12.10.2022 13:49
-
katyaDarsht02.06.2020 03:20
-
Maximm225.11.2021 15:41
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.