Developing.ru

Вот собственно и она:Составить строку,содержащую первые буквы из каждого слова заданного предложения.Напечатать исходный текст и полученную строку. Заранее спасибо

а язык собственно какой?

Вот собственно и она:Составить строку,содержащую первые буквы из каждого слова заданного предложения.Напечатать исходный текст и полученную строку. Заранее спасибо

1. Определить, что есть начало или конец слова (эта тема на паскале рассматривалась в разделе "алгоритмы")
2. Сохранять симлоы в отдельную строку.
3. Вывод Строки-ответа

Держи)) Пусть препод не бузит))))

uses wincrt;
var
i, LenStr: integer;
Sin, Sout: String;
Space: boolean;
begin
write('Input String: ');
Read(Sin);
Space := true;
Sout := '';
LenStr := Length(Sin);
for i := 1 to LenStr do
begin
if space then
begin
if Sin <> ' ' then
begin
Sout := Sout + Sin;
Space := false;
end;
end;
if Sin = ' ' then space := true;
end;
write(Sout);
end.