Простенькая задача на Pascal ABC.

[alexaZ]

Задача.

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

Задача на тему "Стандартные процедуры и функции для работы с символьными и строковыми величинами". Функции, которые можно применять к задаче copy, pos, IntToStr, StrToInt, FloatToStr, StrToFloat, а также процедуры delete и insert.

[rubius2008]

Алгоритм решения следующий: находится пробел в строке и если позиция пробела >1 значит все что до пробела - это слово следовательно отсюда и получаем длину слова и удаляем это слово из строки. s - исходная строка

  ...
  while pos(' ',s)<>0 do begin
    if pos(' ',s)>1 then begin
       s1:=copy(s,1,pos(' ',s)-1);
       writeln('В слове ',s1,' - ',length(s1),' символов'); 
    end;
    delete(s,1,pos(' ',s));
  end;
  ...

Код оформляется специальными тэгами: [СODE] .. [/CODE]
Эти тэги можно поставить с помощью кнопочки с решёточкой (#)
______
Администратор.
p.s. на первый раз исправлю...