Дана строка, состоящая из слов, разделенных пробелами. Вывести слова этой строки, которые отличны от последнего слова

@GrukhvinEV · Регистрация: 08.11.2011

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

ана строка, состоящая из слов, разделенных пробелами. Вывести слова этой строки, которые отличны от последнего слова. Ввожу: "aa bb cc dd ff aa" она мне тоже самое в ответ!

Pascal

program Lab_1;
uses crt;
 function wor(const s:string; var i:byte):string;
    var w:string;
    begin
    w:='';
 
    while (i<=length(s)) and (s[i]<>' ') do begin
          w:=w+s[i];
          i:=i+1;
          end;
    wor:=w;
    end;
 
var stroka:string;
w,t,l:string;
i: byte;
 
begin
writeln ('Vvedite stroky');
readln (stroka);
w:='';
t:='';
begin
i:=length(stroka);
while (i<=length(stroka)) and (stroka[i]<>' ') do
begin
 
t:=t+stroka[i];
dec(i);end;
for i:=length(t) downto 1 do
begin
w:=w+t[i];
end;
end;
    i:=1;
 
while i<=length(stroka) do
begin
 
l:=wor(stroka,i);
if l<>w then write(l); write(' '); inc(i); end;
readln;
end.

Комментарий модератора

Заголовок темы изменен модератором.
Он должен быть информативным, отображая содержание темы.

@Puporev · 29.11.2011, 07:17

Неправильно составляешь слово когда идешь с конца

Pascal

t:='';
i:=length(stroka);
while (i>=1) and (stroka[i]<>' ') do
 begin
  t:=stroka[i]+t;
  dec(i);
 end;

@GrukhvinEV · 29.11.2011, 14:09 **[ТС]**

Точно! Спасибо!

@VGvladoss101 · 15.11.2017, 17:48

Ох ребят,спасибо,выручили

@GrukhvinEV 25 / 25 / 2 Регистрация: 08.11.2011 Сообщений: 284
	29.11.2011, 14:09 [ТС]	3
	Точно! Спасибо! 1

@VGvladoss101 0 / 0 / 0 Регистрация: 12.11.2017 Сообщений: 29
	15.11.2017, 17:48	4
	Ох ребят,спасибо,выручили 0

Опции темы