Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача на строки

Автор: kirilinho 26.11.2007 23:17

Помогите решить задачу.
В строке из 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.

Автор: Артемий 27.11.2007 0:11

В этом разделе смотри тему http://forum.pascal.net.ru/index.php?showtopic=6972