Напечатать те слова, которые отличны от первого слова и предпоследняя буква слова входит в в него еще раз

@YaDenis03 · Регистрация: 18.12.2011

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

@Krot-buterbrod · 29.04.2012, 18:32

Pascal

var a: array [1..50] of string[8];
    st: string;
    sl, i, j, b: integer;
begin
     write('Строка: '); readln(st);
     st[length(st)]:=' ';
     repeat
           inc(sl);
           a[sl]:=copy(st,1,pos(' ',st));
           delete(st,1,pos(' ',st));
     until st='';
     for i:=2 to sl do begin
         b:=0;
         for j:=1 to length(a[i]) do
             if (a[i][length(a[i])-1]=a[i][j]) then inc(b);
         if a[i]=a[1] then a[i]:='';
         if b<>2 then a[i]:='';
     end;
     write('Вывод: '); for i:=2 to sl do write(a[i])
end.

@YaDenis03 0 / 0 / 0 Регистрация: 18.12.2011 Сообщений: 139
		1
	Напечатать те слова, которые отличны от первого слова и предпоследняя буква слова входит в в него еще раз 29.04.2012, 18:16. Показов 1706. Ответов 1 Метки нет (Все метки) Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству:предпоследняя буква слова входит в него еще раз; 0

Опции темы

Напечатать те слова, которые отличны от первого слова и предпоследняя буква слова входит в в него еще раз

Решение