посмотрите исправте!

[nolx]

Вывести все слова последовательности отличные от последнего слова предворительно преобразовав каждое из них по следующему правилу: удалить из слова все предыдущие вхождения последней буквы.

вот программа сделайте правельно

Program Stroki;

uses crt;

var

a:array[2..30] of string [10];

s,s1,slovo,slovo1:string;

k,i,j:integer;

f:boolean;

begin

clrscr;

s:='hgjfj dhhfsdd wkdhuj lrlsal.';

delete (s,length(s),1);

s:=s+' ';

i:=0;

repeat

k:=pos(' ',s);

slovo:=copy(s,1,k-1);

writeln(slovo);

i:=i+1;

a:=slovo;

delete(s,1,k);

until(length (s)=0);

writeln('__________________________ _____________');

for k:=1 to i do

begin

slovo1:=a[k];

f:=false;

for j:=2 to length(slovo1) do

if slovo1[1]=slovo1[j] then

f:=true;

if f then writeln(slovo1);

end

end.

[Тролль]

nolx:

вот программа сделайте правельно

Спасибо, без твоего распоряжения мы бы просто не знали, чем заняться :blush2:)

И займись, пожалуйста, русским языком. Потом вспомни мой ответ в предыдущей теме

"А не мог бы ты сначала воспользоваться Яндексом? ... Я нашел решение твоей задачи в Яндексе меньше чем за минуту. Не верю, что ты этого не можешь."

и освой Яндекс. Решение этой задачи я также нашел там за то же время. А потом можно будет и Паскалем заняться. Не всегда все будут за тебя учиться

[kingstonы]

Оффтоп

nolx: Спасибо, без твоего распоряжения мы бы просто не знали, чем заняться )

:blush2:

Молодеж пошла...

Как жить собираются, непонятно.

[nolx]

я не могу найти в яндексе!

[Тролль]

nolx:

Из Яндекса