Строки. Если слово нечетной длины, то удалить его последнюю букву

@Алессио · Регистрация: 05.06.2012

Студворк — интернет-сервис помощи студентам

Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 пропис-ных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать все слова последовательности, которые отличны от первого слова, предварительно преобразовав каждое из них по следующему правилу:

57) если слово нечетной длины, то удалить его последнюю букву

@CodeR · 13.06.2012, 08:50

Pascal

Var s,s1,s2,s3:string;
Begin
    write('Введите строку: ');readln(s);
    s:=s+' ';s3:='';
    s1:=Copy(s,1,Pos(' ',s)-1);
    Delete(s,1,Pos(' ',s));
    While Pos(' ',s)<>0 do
     Begin
      s2:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if Length(s2) mod 2 <> 0 then Delete(s2,Length(s2),1);
      if s1<>s2 then s3:=s3+s2+' ';
     End;
    writeln(s3);
End.

@Алессио · 14.06.2012, 21:05 **[ТС]**

Спасибо) задача то сама правильная и слова удаляет нечетной длины,но не могу понять почему не удаляет в последнем слове букву если оно не четной длинный??

@CodeR · 14.06.2012, 21:19

Это из за точки) можно вот так сделать

Pascal

1	Delete(s,Pos('.',s),1);

добавьте после

Pascal

1	write('Введите строку: ');readln(s);

@Алессио · 14.06.2012, 21:26 **[ТС]**

Спасиб большое))

Добавлено через 25 секунд
А ты только в Паскале программируешь?

@CodeR · 14.06.2012, 21:29

Пока что только на нем

@Алессио · 14.06.2012, 21:31 **[ТС]**

а если еще попрошу помочь поможешь?

@CodeR · 14.06.2012, 21:34

Помогу,но уже не сегодня

@Алессио · 14.06.2012, 21:42 **[ТС]**

а сегодня никак?а то мне срочно надо?завтра сдавать надо?мне 2 лабы еще сделать надо?

@CodeR · 14.06.2012, 21:47

никак,я просто уже не у компа.Так создайте темы вам помогут!

@Алессио 2 / 2 / 0 Регистрация: 05.06.2012 Сообщений: 26
		1
	Строки. Если слово нечетной длины, то удалить его последнюю букву 12.06.2012, 22:07. Показов 2248. Ответов 9 Метки нет (Все метки) Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 пропис-ных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать все слова последовательности, которые отличны от первого слова, предварительно преобразовав каждое из них по следующему правилу: 57) если слово нечетной длины, то удалить его последнюю букву 0

@Алессио 2 / 2 / 0 Регистрация: 05.06.2012 Сообщений: 26
	14.06.2012, 21:05 [ТС]	3
	Спасибо) задача то сама правильная и слова удаляет нечетной длины,но не могу понять почему не удаляет в последнем слове букву если оно не четной длинный?? 0

@Алессио 2 / 2 / 0 Регистрация: 05.06.2012 Сообщений: 26
	14.06.2012, 21:26 [ТС]	5
	Спасиб большое)) Добавлено через 25 секунд А ты только в Паскале программируешь? 0

@CodeR Фрилансер 3417 / 2814 / 3000 Регистрация: 08.02.2012 Сообщений: 8,550 Записей в блоге: 1
	14.06.2012, 21:29	6
	Пока что только на нем 0

@Алессио 2 / 2 / 0 Регистрация: 05.06.2012 Сообщений: 26
	14.06.2012, 21:31 [ТС]	7
	а если еще попрошу помочь поможешь? 0

@CodeR Фрилансер 3417 / 2814 / 3000 Регистрация: 08.02.2012 Сообщений: 8,550 Записей в блоге: 1
	14.06.2012, 21:34	8
	Помогу,но уже не сегодня 0

@Алессио 2 / 2 / 0 Регистрация: 05.06.2012 Сообщений: 26
	14.06.2012, 21:42 [ТС]	9
	а сегодня никак?а то мне срочно надо?завтра сдавать надо?мне 2 лабы еще сделать надо? 0

@CodeR Фрилансер 3417 / 2814 / 3000 Регистрация: 08.02.2012 Сообщений: 8,550 Записей в блоге: 1
	14.06.2012, 21:47	10
	никак,я просто уже не у компа.Так создайте темы вам помогут! 1

Опции темы