Vael
5 год назад
Задание по программированию на Паскаль, нужна помощь.Дана строка состоящая из строчных букв английского алфавита. Необходимо определить какие буквы встречаются в этой строке больше одного раза.Формат входных файлов: Входной файл содержит одну строку S длиной не более чем 100 символов, состоящую из букв a,b,c...Выходной файл должен содержать в алфавитном порядке последовательность букв строки S, которые встречаются в ней больше одного раза. Каждая буква выводится не больше одного раза.
ОТВЕТЫ
Назар
Oct 24, 2020
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
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
113
Смежные вопросы:
