1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| RIDDICK | 
                        
			
			  
			
				 Сообщение
					#1				
			 
		 | 
	
| 
        	
        		 Пионер ![]() ![]() Группа: Пользователи Сообщений: 51 Пол: Мужской Репутация:    0           	 | 
       
			
			 Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами – запятая или не менее одного пробела, за последним словом -  точка.  
			
			
					
		Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству: - буквы слова упорядочены по алфавиту; Напечатать те слова последовательности, которые отличны от последнего слова, предварительно преобразовав каждое из них по следующему правилу: - перенести последнюю букву в начало слова. помогите решить... горю... стринги еще не прошли ((  | 
	
![]() ![]()  | 
	
| hiv | 
                        
			
			  
			
				 Сообщение
					#2				
			 
		 | 
	
| 
        	
        		 Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 660 Пол: Мужской Реальное имя: Михаил Репутация:    11           	 | 
       
			
			 Цитата Дана последовательность, содержащая от 2 до 50 слов... Как собираетесь ее задавать? Читать из файла или с клавиатуры вводить? -------------------- Никогда не жадничай. Свои проблемы с любовью дари людям! 
					
		 | 
	
 RIDDICK   строки   12.05.2005 3:45
 
 Altair   разбиваем тест на слова.
FAQ: разбиение строки на …   12.05.2005 3:54
 
 RIDDICK   это понятно... а как определить, что буквы в слове…   12.05.2005 11:02
 
 hiv   Попробуй нечто вроде этого:
var i: integer;
     s…   12.05.2005 12:23
 
 RIDDICK   это нечто дает тру только если слово типа "аб…   12.05.2005 12:56
 
 RIDDICK   далее, я не совсем понял про PChar, без которого т…   12.05.2005 13:12
 
 volvo   
Можно пояснить, с какой стороны тут никак не обой…   12.05.2005 15:18
 
 hiv   Чтобы учесть
Тогда замени это:
if length(s)>1 …   12.05.2005 13:23
 
 RIDDICK   2volvo 
вводимая строка иметь будет длину около 4…   12.05.2005 19:05
 
 volvo   Ну и что? Обязятельно прикручивать PChar? А у тебя…   12.05.2005 19:13
 
 RIDDICK   как бы объяснить... лектор отстает на пару лекций …   12.05.2005 19:17
 
 RIDDICK   с клавиатуры   13.05.2005 18:37
 
 hiv   Ввод строки:
uses Crt;
var q :char;
      count :…   13.05.2005 19:17![]() ![]()  | 
	
 
  | 
		Текстовая версия | 4.11.2025 20:56 |