Напечатать все буквы, входящие в текст не менее двух раз

@Денис90 · Регистрация: 06.02.2011

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

дана символьная строка напечатать все буквы входящие в текст не менее двух раз . помогите пожалуйста!!!!!!!!!!!!!!!!

@Puporev · 06.02.2011, 19:46

Pascal

program bukva;
uses crt;
const bk=['A'..'Z','a'..'z','А'..'п','р'..'ё'];
var s:string;
    m:set of char;
    c:char;
    i,j,k:byte;
begin
clrscr;
writeln('Введите строку:');
readln(s);
writeln('Буквы, входящие не менее 2 раз:');
m:=[];
for i:=1 to length(s) do
if s[i] in bk then
 begin
  k:=0;
  for j:=1 to length(s) do
  if(s[i]=s[j])and(i<>j) then k:=1;
  if k=1 then m:=m+[s[i]];
 end;
if m=[] then write('Таких букв нет')
else for c:='A' to 'ё' do
if c in m then write(c,' ');
readln
end.

@Денис90 · 06.02.2011, 19:48 **[ТС]**

это точно правильно???

@Puporev · 06.02.2011, 20:07

Денис90, Так проверь, в чем дело?

@Денис90 · 06.02.2011, 20:12 **[ТС]**

Спасибо!!!!!!!!!

@Денис90 0 / 0 / 0 Регистрация: 06.02.2011 Сообщений: 3
		1
	Напечатать все буквы, входящие в текст не менее двух раз 06.02.2011, 19:28. Показов 1634. Ответов 4 Метки нет (Все метки) дана символьная строка напечатать все буквы входящие в текст не менее двух раз . помогите пожалуйста!!!!!!!!!!!!!!!! 0

@Денис90 0 / 0 / 0 Регистрация: 06.02.2011 Сообщений: 3
	06.02.2011, 19:48 [ТС]	3
	это точно правильно??? 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	06.02.2011, 20:07	4
	Денис90, Так проверь, в чем дело? 1

@Денис90 0 / 0 / 0 Регистрация: 06.02.2011 Сообщений: 3
	06.02.2011, 20:12 [ТС]	5
	Спасибо!!!!!!!!! 0

Напечатать все буквы, входящие в текст не менее двух раз

Решение