Задача на строки Опции

[kirilinho]

Помогите решить задачу.
В строке из 50 символов отдельные слова разделены пробелом. Упорядочить строку так, чтобы каждое следующее слово было не короче предыдущего.

program lab_6;
uses crt;
const l=50;
var s,s1:string[50];
    i,j,k:integer;
    c:char;
begin
 s:='';
 for i:=1 to l do
  begin
   readln©;
   s:=s+i;
  end;
???
end.

[Артемий]

В этом разделе смотри тему Разделение на слова.Все способы.

Сообщение отредактировано: Артемий - 26.11.2007 20:13