Напечатать все слова отличные от последнего

@Orlanxxx · Регистрация: 11.10.2009

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

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

@кот Бегемот · 18.12.2009, 18:29

Pascal

var
a,t:string; {строка}
b:array[1..100]of string; {массив слов}
i,k,f,j,r:integer; {счётчики и флажок(f)}
begin
readln(a);{ввели слово}
a:=' '+a;{добавили пробел в начало, чтобы перед всеми словами был пробел (легче считать)}
for i:=1 to length(a) do  {перебираем все символы}
if (a[i]=' ')and(a[i+1]<>' ')then inc(k)else if a[i]<>' ' then b[k]:=b[k]+a[i];
{если встречаем последний пробел, на счётчике слов появляется следующая цифра,}
{если не пробел, добавляем к слову букву из строки}
for i:=1 to k-1 do   {перебираем все слова}
    if (b[i]<>b[k]) then {если слово не равно последнему, то проверяем:}
    begin
    r:=length(b[i]);{находим длину слова}
    if r mod 2<>0 then delete(b[i],r div 2+1,1); {если она нечётна, удаляем среднюю букву}
    writeln(b[i]);   {печатаем слово}
  end;
readln;
end.

@Orlanxxx · 18.12.2009, 19:21 **[ТС]**

Сообщение от alexevt

Pascal

var
a,t:string; {строка}
b:array[1..100]of string; {массив слов}
i,k,f,j,r:integer; {счётчики и флажок(f)}
begin
readln(a);{ввели слово}
a:=' '+a;{добавили пробел в начало, чтобы перед всеми словами был пробел (легче считать)}
for i:=1 to length(a) do  {перебираем все символы}
if (a[i]=' ')and(a[i+1]<>' ')then inc(k)else if a[i]<>' ' then b[k]:=b[k]+a[i];
{если встречаем последний пробел, на счётчике слов появляется следующая цифра,}
{если не пробел, добавляем к слову букву из строки}
for i:=1 to k-1 do   {перебираем все слова}
    if (b[i]<>b[k]) then {если слово не равно последнему, то проверяем:}
    begin
    r:=length(b[i]);{находим длину слова}
    if r mod 2<>0 then delete(b[i],r div 2+1,1); {если она нечётна, удаляем среднюю букву}
    writeln(b[i]);   {печатаем слово}
  end;
readln;
end.

а где учет точки в конце, где уччет того что в слове от 2 до 10 символов а где учет того что не меньше 2 и не больше 10 слов где это все? не можете сделать не пишите чушь

@Orlanxxx 4 / 1 / 2 Регистрация: 11.10.2009 Сообщений: 153
		1
	Напечатать все слова отличные от последнего 18.12.2009, 18:09. Показов 1074. Ответов 2 Метки нет (Все метки) Дана строка содержащая от 2 до 10 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами не менее одного пробела, за последним словом точка. Напечатать все слова отличные от последнего слова предварительно преобразовав каждое из них по правилу: Если слово не четной длины удалить среднюю букву, а если четной то оставить без изменения... 0

Опции темы

Напечатать все слова отличные от последнего

Решение