Cформировать и выдать на экран дисплея аббревиатуру слов строки

@mr88zet · Регистрация: 28.03.2013

Author24 — интернет-сервис помощи студентам

Помогите написать программу, которая принимает строку символов, содержащую несколько слов (для простоты считаем, что слово состоит из символов отличных от пробела), разделенных одним или больше пробелами. Перед первым словом пробелы могут отсутствовать или может быть один или несколько пробелов. Строка может быть пустой. Программа должна сформировать и выдать на экран дисплея аббревиатуру слов строки, т.е. строку, первый символ которой есть первый символ первого слова исходной строки, второй символ - первый символ второго слова и т.д.

Взаранее благодарен за помощь!

Добавлено через 35 минут

Kodzaev · 28.03.2013, 17:54

Тестируй:

Pascal

Var
  s: String;
  i: Byte;
BEGIN
Write('Введите строку: ');
Readln(s);
If s[1]<>' ' Then Write(UpCase(s[1]));
For i:=1 to Length(s)-1 do
If (s[i]=' ') and (s[i+1]<>' ') Then
Write(UpCase(s[i+1]));
END.

@mr88zet · 28.03.2013, 18:16 **[ТС]**

Благодарю!!!

@mr88zet 0 / 0 / 0 Регистрация: 28.03.2013 Сообщений: 6
		1
	Cформировать и выдать на экран дисплея аббревиатуру слов строки 28.03.2013, 17:01. Показов 5444. Ответов 2 Метки нет (Все метки) Помогите написать программу, которая принимает строку символов, содержащую несколько слов (для простоты считаем, что слово состоит из символов отличных от пробела), разделенных одним или больше пробелами. Перед первым словом пробелы могут отсутствовать или может быть один или несколько пробелов. Строка может быть пустой. Программа должна сформировать и выдать на экран дисплея аббревиатуру слов строки, т.е. строку, первый символ которой есть первый символ первого слова исходной строки, второй символ - первый символ второго слова и т.д. Взаранее благодарен за помощь! Добавлено через 35 минут 0

@mr88zet 0 / 0 / 0 Регистрация: 28.03.2013 Сообщений: 6
	28.03.2013, 18:16 [ТС]	3
	Благодарю!!! 0

Cформировать и выдать на экран дисплея аббревиатуру слов строки

Решение