Паскаль, дана строка из 20 слов, сформируйте строку, составленную из первых букв всех слов строки ​

Ответ:

program StrToWord;

var

 s, r: string;

 i: Integer;

 b: Boolean;

 d: Set of Char;

begin

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

 ReadLn (s);

 d := [' ', ',', '.'];

 r := '';

 b := true;

 for i := 1 to Length (s) do begin

   if s [i] in d then begin

     b := True;

   end else if b and not (s [i] in d) then begin

     r := r + s [i];

     b := False;

   end;

 end;

 WriteLn (r);

 ReadLn;

end.

Объяснение:

 d := [' ', ',', '.'];  - это множество символов - разделителей, можно добавить еще любые символы, которые разделяют слова