![](/static/djangobb_forum/img/smilies/smile.png)
Условие задачи: преобразовать строку так, чтобы буквы каждого слова в ней были отсортированы по алфавиту.
Решение на Паскале:
Program ABC;
uses crt;
const
razd:set of char=;
var
st,buf:string;
function sort(st:string):string;
var i,j:integer;
b:char;
begin
for i:=length(st) downto 1 do for j:=1 to i-1 do if st > st then
begin
b:=st;
st:=st;
st:=b;
end;
begin
clrscr;
readln(st);
repeat
if (st in razd) or (length(st)=0) then while st in razd do delete(st,1,1)
else
begin
while (not (st in razd)) and (length(st)>0) do
begin
buf:=buf+st;
delete(st,1,1);
end;
write(sort(buf),' ‘);
buf:=’';
end;
until (length(st)=0) and (length(buf)=0);
readln;
end.