Помогите с перестаовкой букв в обратном порядке! Опции

[-Sheremeta-]

Нужно написать прогу которая б переставляла букви каждого слова предложения в обратном порядке.Между словами находится один пропуск.

[Bokul]

Нужно написать прогу которая б переставляла букви каждого слова предложения в обратном порядке.Между словами находится один пропуск.

Сначала разбиваешь строчку на слова и заносишь их в массив(Разбиение на слова. Все способы.), потом для каждого елемента массива проделаешь procedure inverse и распечатаешь массив.

procedure inverse(var s:string);
var buf:string;
    i:byte;
begin 
buf:='';
for i:=length(s) downto 1 do
         buf:=buf+s[i];
s:=buf;
end; 

Сообщение отредактировано: volvo - 2.11.2006 19:45