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

@yushimitsu · Регистрация: 27.11.2014

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

Пусть дан текст, заканчивающийся точкой. Текст состоит из слов, разделенных пробелами. Слова представляют собой произвольную последовательность символов, отличных от пробела. Напечатайте все слова, которые состоят из тех же букв, что и последнее слово текста.

помогите пожалуйста!

@Joy · 30.12.2014, 13:31

Pascal

var
  ls,cs,s,ss:string;
  i,j:integer;
  b:boolean;
begin
  write('BBeguTe TekcT:');readln(s);
  for i:=length(s) downto 1 do
    if s[i]=#32 then break;
    ls:=copy(s,i+1,length(S)-i);
  repeat
    cs:=copy(s,1,pos(#32,s)-1);ss:=cs;
    delete(s,1,pos(#32,s));
    for i:=1 to length(ls) do  while pos(ls[i],ss)>0 do delete(ss,pos(ls[i],ss),1);
    if ss='' then writeln(cs);
  until s=ls;
end.

@yushimitsu 0 / 0 / 0 Регистрация: 27.11.2014 Сообщений: 7
		1
	Напечатайте все слова, которые состоят из тех же букв, что и последнее слово текста 29.12.2014, 18:39. Показов 2989. Ответов 1 Метки нет (Все метки) Пусть дан текст, заканчивающийся точкой. Текст состоит из слов, разделенных пробелами. Слова представляют собой произвольную последовательность символов, отличных от пробела. Напечатайте все слова, которые состоят из тех же букв, что и последнее слово текста. помогите пожалуйста! 0

	30.12.2014, 13:31

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

Решение