Работа со строками. Написать программу для решения задачи

@RamBarrett · Регистрация: 24.09.2015

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

Написать программу для решения задачи. Дана последовательность, которая содержит от 1 до 30 слов, в каждом из которых от 1 до 5строчных латинских букв; между соседними словами - запятая, после последнего слова стоит точка.
Напечатать все слова, но если слово нечётной длины - удалить его среднюю букву.

@CodeR · 23.11.2015, 10:15

Pascal

Var s,sl:string;
Begin
    write('Введите последовательность слов: ');
    readln(s);
    if s[Length(s)] = '.' then Delete(s,Length(s),1);
    s:=s+',';
    While Pos(',',s) > 0 do
    Begin
      sl:=Copy(s,1,Pos(',',s)-1);
      Delete(s,1,Pos(',',s));
      if sl='' then Continue;
      if odd(Length(sl)) then Delete(sl,Length(sl) div 2 + 1, 1);
      writeln(sl);
    End;
    readln;
End.

@RamBarrett 0 / 0 / 1 Регистрация: 24.09.2015 Сообщений: 29
		1
	Работа со строками. Написать программу для решения задачи 22.11.2015, 14:41. Показов 1716. Ответов 1 Метки нет (Все метки) Написать программу для решения задачи. Дана последовательность, которая содержит от 1 до 30 слов, в каждом из которых от 1 до 5строчных латинских букв; между соседними словами - запятая, после последнего слова стоит точка. Напечатать все слова, но если слово нечётной длины - удалить его среднюю букву. 0

	23.11.2015, 10:15

Опции темы

Работа со строками. Написать программу для решения задачи

Решение