По программированию на паскаль, нужна . дана строка состоящая из строчных букв алфавита. необходимо определить какие буквы встречаются в этой строке больше одного раза. формат входных файлов: входной файл содержит одну строку s длиной не более чем 100 символов, состоящую из букв a,b, выходной файл должен содержать в алфавитном порядке последовательность букв строки s, которые встречаются в ней больше одного раза. каждая буква выводится не больше одного раза.

168

179

Посмотреть ответы 3

Ответы на вопрос:

вита1404

Информатика

4,7(79 оценок)

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

alial1

Информатика

4,6(16 оценок)

// 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