Задачка по программированию на Паскаль, нужна помощь.Дана строка состоящая из строчных
Задачка по программированию на Паскаль, нужна помощь.
Дана строчка состоящая из строчных букв британского алфавита. Нужно найти какие буковкы встречаются в этой строке больше 1-го раза.
Формат входных файлов: Входной файл содержит одну строчку S длиной не более чем 100 знаков, состоящую из букв a,b,c...
Выходной файл обязан содержать в алфавитном порядке последовательность букв строчки S, которые встречаются в ней больше 1-го раза. Любая буковка выводится не больше 1-го раза.
2 ответа
Настя Батутемирова
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]gt;1 then write(t2,c);
writeln(t2);
close(t1); close(t2);
end.
Пример:
Файл input.txt:
xyzabcdefgabcdx
Файл output.txt
abcdx
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]gt;1 then write(t2,c);
writeln(t2);
close(t1); close(t2);
end.
Пример:
Файл input.txt:
xyzabcdefgabcdx
Файл output.txt
abcdx
Salita Arsenij
Input и Output - стандартные текстовые файлы ввода и вывода соответственно. Так что формально всё ОК. )
Амелия Райко
Ну прямо разбранили совершенно. Придется поправить.
Надежда Климковская
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программка не работает, обновите версию!
begin
var s:=ReadAllText('input.txt');
WriteAllText('output.txt',s.GroupBy(c-gt;c).Select(t-gt;(t.Key,t.Count))
.Where(t-gt;t[1]gt;1).Select(t-gt;t[0]).OrderBy(t-gt;t).JoinIntoString(''))
end.
Пример
Во входном файле input.txt записана строчка
petrwpoqwwefrnmvndihbgfuiusbnyaysinrivniweuwepkwqeofkwpr
В выходном файле output.txt будет получена строчка
befiknopqrsuvwy
// Внимание! Если программка не работает, обновите версию!
begin
var s:=ReadAllText('input.txt');
WriteAllText('output.txt',s.GroupBy(c-gt;c).Select(t-gt;(t.Key,t.Count))
.Where(t-gt;t[1]gt;1).Select(t-gt;t[0]).OrderBy(t-gt;t).JoinIntoString(''))
end.
Пример
Во входном файле input.txt записана строчка
petrwpoqwwefrnmvndihbgfuiusbnyaysinrivniweuwepkwqeofkwpr
В выходном файле output.txt будет получена строчка
befiknopqrsuvwy
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов