Слово нечетной длинны!

[Artem1987]

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

[Карась]

program Project1;

 Function Rus(mes: string): string;
  var i: integer;
  begin
    for i:=1 to length(mes) do
     case mes[i] of
       'А'..'п' : mes[i] := Chr(Ord(mes[i]) - 64);
       'р'..'я' : mes[i] := Chr(Ord(mes[i]) - 16);
     end;
    Rus := mes;
  end;

{$APPTYPE CONSOLE}

var mes, mes2: string;
    k: integer;

begin
Write (Rus('Введите слово или фразу: '));
Readln (mes);

Write (Rus('Введёная фраза содержит '));
Write (length(mes)); Write (Rus(' символов (включая пробелы)'));
Writeln; Writeln;

  for k := 1 to length(mes) do
  if mes[k] <> ' ' then Write (mes[k]) else Writeln;

Readln;
end.

Вот эта программа (консольное приложение в делфи) разделяет фразу на отдельные слова. Ещё пару строчек, а имено ветвление if then и программа будет готова.

[puporev]

Если не смог воспользоваться предыдущим предложением, посмотри это. Здесь попроще, все в Паскале + готовая прграмма во вложении.

program udal_sl;
uses crt;
var
    s,s1:string; i,j:integer;
begin
      clrscr;
      writeln(‘Введите строку, состоящую из слов, разделенных пробелами:’);
      writeln;
      readln(s);
      writeln(‘----------------------------------------------------------------------------------‘);
      repeat
          j:=pos(‘ ‘,s); первое появление пробела(номер позиции)
          if j mod 2<> 0 then s1:=s1+copy(s,1,j-1)+’ ‘);
         delete(s,1,j);  удаляем использованные слова в начале строки
       until j=0;
       if length(s) mod 2=0 then s1:=s1+s; последнее слово
       write(‘Слова с четным количеством букв:’);
       writeln;
       writeln;
       write(s1+’ ‘);
       readln;
end.