Дана строка символов до точки. Группы символов в ней можду одним пробелом считаются словами. Удалить из нее каждое слово четной длины.
uses CRT;
var s:string;
i:integer;
ch:char;
begin
s:='';
writeln('Введите строку символов до точки->');
repeat
readln(ch);
s:=s+ch;
until ch='.';
end.
var a,b:string;
i,j,n,l,k:integer;
s:array[1..100]of string;
begin
read(a);j:=0;
b:='';
l:=length(a);
while a<>'' do
begin
inc(j);
n:=pos(' ',a);
if n<>0 then for i:=1 to n-1 do
s[j]:=s[j]+a[i];
delete(a,1,n);
if n=0 then begin s[j]:=a;delete(a,1,length(a));end;
end;
delete(s[j],length(s[j]),1);
for i:=1 to j do
if length(s[i])mod 2=1 then b:=b+s[i]+' ';
if b[length(b)]=' ' then delete(b,length(b),1);
if b[length(b)]<>'.' then b:=b+'.';
write(b);
end.