@Dushess

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

В чем у меня может быть ошибка?
Не обрабатывается последнее слово..


uses crt;
var str,s2,newstr:string;
i,j,n,x,k,s,w:integer;
begin
clrscr;
writeln('vvedite stroky(2-30 slov iz 2-10 bukv)');
readln(str);

for i:=1 to length(str) do
if (str[i]=' ')and (str[i+1]<>' ')then
x:=x+1;
{writeln('vsego slov ',x+1); }
w:=x+1;

For j:=1 to w do begin

for i:=1 to length(str) do
if (str[i]=' ')or(str[i+1]<>' ') then
s2:=copy(str,1,Pos(' ',str)-1);
delete(str,1,pos(' ',str));

if odd(length(s2))=true then
delete(s2,((length(s2) div 2)+1),1);

newstr:=newstr+' '+s2;
{end else newstr:=newstr+' '+s2;}
end;

Write(newstr);
Readln;
end.

Заранее спасибо.

0

@Dushess

Точнее, проблема в том, как не выводить слово равное последнему..

0