Выделение слов из текста (слова разделены несколькими пробелами)

Ввести предложение, в котором слова могут быть разделены несколькими пробелами. Выделить слова и вывести их на экран.

В этом случае номер слова меняется при встрече с первым пробелом, а все последующие пробелы пропускаются.

Текст программы, реализующей эту задачу, приведен ниже.

Program GetSl2;

Const m = 50;

Var Predl : string;

Slovo : array [1..m] of string;

n,k,i : integer;

Begin

WriteLn('Введите предложение:');

ReadLn(Predl);

n := Length(Predl);

k := 1;

Slovo[k] := '';

i := 1;

While i<=n do

If predl[i] <> ' ' then {символ – не пробел}

begin

Slovo[k] := slovo[k] + predl[i];

i := i + 1;

end

Еlse {символ – пробел}

begin

k := k + 1;

slovo[k] := '';

While (predl[i]=' ') and (i <= n) do i := i + 1;

end;

WriteLn('Слова из предложения:');

For i := 1 to k do WriteLn(slovo[i]);

END.

Выделение символов в строке и расположение их по алфавиту

Ввести в ЭВМ строку из n символов латинского алфавита (n<30). Расположить их по алфавиту.

Буквы латинского алфавита 'A' – 'Z', 'a' –'z' имеют коды, значения которых возрастают. Для решения задачи можно применять алгоритм сортировки "пузырьком".

Текст программы, реализующей эту задачу, приведен ниже.

Program Sorts;

Var s : string;

sr : char;

n, i, k : integer;

Begin

writeln('Введите строку');

readln(s);

n := length(s);

for k := 1 to n-1 do

for i := 1 to n-k do

if s[i]>s[i+1] then

begin

sr :=s[i];

s[i] := s[i+1];

s[i+1] := sr;

end;

writeln('Строка с упорядоченными символами:');

writeln(s);

readln;

End.