IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> В чём секрет?
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 17

Репутация: -  0  +


Посмотрите пожайлуста!
Данная прога выводит на экран только глухие согласные, которые есть во 2 слове текста!
Вопрос после кода:
Код
  var s,l:string;
  i,w:byte;
 m:set of char;
   begin
    writeln('введите строку');
    readln(s);
       w:=pos(' ',s);
       l:=copy(s,w,pos(' ',s));
       m:=['ц', 'к', 'ш', 'х', 'ф', 'п'];
   for i:=1 to length(l) do
   if l[i] in m then
   writeln(l[i]);
   end.
 Вопрос: Как сделать так чтобы во всей строчке если введется 2 пробела прога делала бы из них 1 . Например: после 1 слова введено 2 пробела из за этого не выведутся все согласные глухие.
Или может можно придумать условие?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
jackal   В чём секрет?   1.04.2003 16:05
ozzy   Re: В чём секрет?   3.04.2003 14:49
trminator   Re: В чём секрет?   11.04.2003 23:05


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 1.12.2021 10:12
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name