|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.12.2011, 17:46 | #1 |
Пользователь
Регистрация: 25.09.2011
Сообщений: 16
|
Множества.
Пусть задана произвольная последовательность символов. Признак конца последовательности точка. Напечатайте те символы, которые встречаются в данной последовательности более одного раза.
|
26.12.2011, 21:53 | #2 |
Пользователь
Регистрация: 20.12.2011
Сообщений: 40
|
Program mn_9;
uses crt; type let='a'..'z'; var mn1,mn2:set of let; s: string; c:char; i:integer; begin clrscr; writeln('введите текст, заканчивающийся точкой'); readln(s); if s[length(s)]<>'.' then s:=s+'.'; i:=1;mn1:=[];mn2:=[]; while s[i] <> '.' do begin If s[i] in mn1 then mn2:=mn2+[s[i]]; mn1:= mn1 + [s[i] ]; i:=i+1; end; for c:='a' to 'z' do if c in mn2 then write(c:2); readln; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Через множества заданы сорта роз,выращиваемых цветоводами. Ввод множества с клавиатуры,сравнение множеств | BAMbarBIO | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 31.05.2011 13:17 |
Множества | viper1941 | Помощь студентам | 0 | 12.04.2011 21:19 |
Множества. | Corpinccom | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 28.07.2010 22:56 |
Множества | Бедная студентка) | Помощь студентам | 0 | 29.06.2009 19:59 |
Множества | Rin@ | Паскаль, Turbo Pascal, PascalABC.NET | 13 | 16.06.2009 15:39 |