Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.03.2014, 21:21   #1
Chowder
 
Регистрация: 16.03.2014
Сообщений: 4
По умолчанию Множества

Пусть дан текст. Распечатайте те буквы, которые встречаются в каждом слове текста только один раз.
Например: Вводим рррарр лллдллл ,а вывод ад
Chowder вне форума Ответить с цитированием
Старый 27.03.2014, 21:49   #2
Streletz
Старожил
 
Регистрация: 03.01.2014
Сообщений: 2,870
Вопрос

Свои попытки были?
Streletz вне форума Ответить с цитированием
Старый 27.03.2014, 21:53   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Попробую намекнуть: http://www.programmersforum.ru/showp...10&postcount=6
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 28.03.2014, 18:52   #4
Chowder
 
Регистрация: 16.03.2014
Сообщений: 4
По умолчанию

Код:
var 
 i: integer;
 s,st: string;
 ws: set of Char;

begin
writeln('Введите текст');
 begin
   Readln(s);
    st:='';
     for i:=1 to Length(s) do
   begin
    if not (s[i] in ws) and (s[i]<>' ') then
    begin
    if s[i]<>' ' then ws:=ws+[s[i]];
     st:=st+s[i];
    end 
    else
     begin
       Write(st);
         st:='';
       end;
    end;
   Writeln;
 end;
      Readln;
end.
Chowder вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal ABC. Множества. Сформировать два множества из M и N элементов случайным образом. powersej Паскаль, Turbo Pascal, PascalABC.NET 0 13.12.2012 21:08
Pascal ABC. Множества. Сформировать два множества из M и N элементов случайным образом. powersej Помощь студентам 0 13.12.2012 20:58
Сравнить мощность множества, состоящего из чисел от 1 до N с мощностью множества, состоящего из отрицательных элементов вектора В MaSS93 Паскаль, Turbo Pascal, PascalABC.NET 5 24.05.2012 20:04
Множества HD-boy Помощь студентам 1 31.01.2012 07:18
Через множества заданы сорта роз,выращиваемых цветоводами. Ввод множества с клавиатуры,сравнение множеств BAMbarBIO Паскаль, Turbo Pascal, PascalABC.NET 5 31.05.2011 13:17