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

@aleksskay · Регистрация: 10.08.2011

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

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

@TheSN · 30.05.2012, 13:56

Pascal

var
  s: string;
  t, r: set of 'a'..'z';
  c: char;
  i: integer;
 
begin
  readln(s);
  for i := 1 to length(s) do 
  begin
    if s[i] in t then include(r, s[i]);
    include(t, s[i]);
  end;
  writeln('Буквы, встречающиеся  в строке не менее двух раз:');
  for c := 'a' to 'z' do if c in r then write(c:3);
  readln
end.

@aleksskay 13 / 13 / 11 Регистрация: 10.08.2011 Сообщений: 226 Записей в блоге: 1
		1
	Множества. Напечатать все буквы, входящие в текст не менее двух раз 30.05.2012, 13:31. Показов 2226. Ответов 1 Метки нет (Все метки) множества. Дан текст из строчных латинских букв ,за которыми следует точка . Напечатать все буквы ,входящие в текст не менее двух раз. 0

	30.05.2012, 13:56

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

Решение