Предмет: Информатика,
автор: tirnish
введите с клавиатуры символьную строку и выведите все символы которые встречаются в ней только один раз
Ответы
Автор ответа:
0
PascalВыделить код1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
var s,s1:string;
c:char;
i,j,k:byte;
begin
writeln('Введите строку');
read(s);
s1:=s;{сделаем копию строки, если строка не нужна, то можно и не делать}
i:=1;
while i<length(s1) do
begin
c:=s1[i];{запомним символ}
k:=0;
for j:=length(s1) downto i+1 do{с конца строки ищем такие же}
if s1[j]=c then{если есть}
begin
k:=1;{фиксируем}
delete(s1,j,1);{удаляем}
end;
if k=1 then delete(s1,i,1){если не один, удаляем}
else i:=i+1;{иначе проверяем следующий}
end;
writeln('Символы по 1 разу');
if s1='' then write('Таких символов нет')
else write(s1);
end.
Похожие вопросы
Предмет: Математика,
автор: kirillogarev09
Предмет: Информатика,
автор: zaloznavaleria
Предмет: Математика,
автор: layflayna
Предмет: История,
автор: yanakocharyan2
Предмет: Алгебра,
автор: marini200022