|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
16.05.2012, 17:40 | #1 |
Новичок
Джуниор
Регистрация: 16.05.2012
Сообщений: 2
|
кто может помочь
Вводится непустая строка из строчных русских букв.Отдельные слова в ней разделены запятыми.Вывести на печать в алфавитном порядке: глухие согласные, которые входят хотя бы в в одно четное слово и хотя бы в одно нечетное слово.(нужно только через множества)
|
16.05.2012, 17:57 | #2 |
Новичок
Джуниор
Регистрация: 16.05.2012
Сообщений: 2
|
ну или помогите переделать вот эту под мою:Вводится непустая строка из строчных русских букв.Отдельные слова в ней разделены запятыми.Вывести на печать в алфавитном порядке звонкие согласные которые входят хотя бы в одно нечетное слово и не входят хотя бы в одно четное
USES crt; CONST zs : set of char = ['Ў','ў','Ј','¤','¦','§','«','¬','*' ,'а']; VAR st : string[79]; d, n, k, i : integer; sl, mnechet, mchet, vm : set of char; chet : boolean; c : char; BEGIN clrscr; st:=' Ў®а®§¤*, Ў®а®**, ¦Ёа*д, ЎҐбᮤҐа¦**ЁҐ, ¦*а*'; writeln('‚ўҐ¤ЁвҐ бва®Єг, а*§¤Ґ«пп б«®ў* §*Їпвл¬Ё'); readln(st); writeln; d:=LENGTH(st); while (d>0) and (st[d]=' ') do d:=d-1; if d=0 then write('ЂЌЋЊЂ‹€џ: бва®Є* Їгбв*п') else begin chet:=true; mnechet:=[]; mchet:=[]; n:=1; while n<=d do begin while st[n]=' ' do n:=n+1; k:=POS(',',COPY(st,n,d-n+1)); if k=0 then k:=d else k:=k+n-1-1; { k:=n; while (k<=d) and (st[k]<>',') do k:=k+1; k:=k-1; } chet:=not chet; sl:=[]; for i:=n to k do sl:=sl+[ st[i] ]; if chet then mchet:=mchet+(zs-sl) else mnechet:=mnechet+(zs*sl); n:=k+2; end; vm:=mchet*mnechet; writeln('‡‚ЋЌЉ€… ‘Ћѓ‹Ђ‘Ќ›…, ЉЋ’Ћђ›… ‚•Ћ„џ’ •Ћ’џ Ѓ› ‚ Ћ„ЌЋ Ќ…—…’ЌЋ… ‘‹Ћ‚Ћ'); writeln('€ Ќ… ‚•Ћ„џ’ •Ћ’џ Ѓ› ‚ Ћ„ЌЋ —…’ЌЋ…:'); if vm=[] then write('таких букв нет') else for c:='Ў' to 'а' do if c IN vm then write(c,' '); end; readln; END. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Кто может помочь новичку? | klarki | HTML и CSS | 1 | 29.03.2012 11:28 |
Кто может помочь с Фортраном | Иван89 | Помощь студентам | 1 | 23.11.2011 11:10 |
Кто может помочь..... | teres | C++ Builder | 1 | 18.03.2011 17:59 |
Может кто помочь с заданиями? | fatalistika | Фриланс | 15 | 30.12.2010 08:52 |
Кто может помочь с программой | codemasters | Фриланс | 2 | 28.11.2010 16:41 |