Построить множество символов в строке, встречающихся в ней ровно 2 раза

@ApocaU · Регистрация: 10.01.2013

Author24 — интернет-сервис помощи студентам

вводится строка.пройдя по данной строке 1 раз(без вложенных циклов) построить множество символов,встречающихся в ней ровно 2 раза.

@Puporev · 22.05.2013, 17:43

Pascal

uses crt;
var s:string;
    m1,m2,m3:set of char;
    i:byte;
begin
clrscr;
writeln('Введите строку');
readln(s);
m1:=[];
m2:=[];
m3:=[];
for i:=1 to length(s) do
if not(s[i]in m1) then m1:=m1+[s[i]]
else if (s[i] in m1)and not(s[i]in m2) then m2:=m2+[s[i]]
else if(s[i] in m2) then m3:=m3+[s[i]];
m2:=m2-m3;
if m2=[] then write('Нет символов, встречающихся ровно 2 раза')
else
 begin
  writeln('Символы, встречающиеся ровно 2 раза');
  for i:=32 to 255 do
  if chr(i) in m2 then write(chr(i));
 end;
readln
end.

@ApocaU 0 / 0 / 0 Регистрация: 10.01.2013 Сообщений: 74
		1
	Построить множество символов в строке, встречающихся в ней ровно 2 раза 22.05.2013, 16:53. Показов 1388. Ответов 1 Метки нет (Все метки) вводится строка.пройдя по данной строке 1 раз(без вложенных циклов) построить множество символов,встречающихся в ней ровно 2 раза. 0

	22.05.2013, 17:43

Опции темы

Построить множество символов в строке, встречающихся в ней ровно 2 раза

Решение