Введите с клавиатуры символьную строку и выведите все символы которые встречаются в ней только один раз
177
ОТВЕТЫ
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 ilt;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.
292
Отв. дан
Ariuth
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Вит
Автомат получает на вход четырёхзначное десятичное число. По полученному ...
2019-05-24 09:58:49
Bibevnal
Введите с клавиатуры число n и запишите в массив ...
2019-05-24 09:56:47
Владимир
Напишите наименьшее ближайшее целое число для числа 28(6 система ...
2019-05-24 09:55:46
Naegasok
Дано число определить делится оно на три? (На языке ...
2019-05-24 09:54:56