Найти число элементов, которые начинаются с той же буквы, на которую оканчивается первый элемент

@Гигабайт · Регистрация: 06.02.2017

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

Задайте строковый массив.Определите и выведите на экран кол-во элементов,которые начинаются с той же буквы,на которую оканчивается первый элемент.

@Hitoku · 04.05.2017, 19:46

Pascal

begin
  var s:=ReadlnString.ToWords;
  write(s.Where(v -> v.StartsWith(s[0][s[0].Length])).Count);
end.

@volvo · 04.05.2017, 19:55

Зачем выбирать и потом считать, если можно сразу посчитать:

Pascal

1	writeln(s.Count(v -> v.StartsWith(s.First.ToArray.Last)));

?

@Гигабайт · 04.05.2017, 20:46 **[ТС]**

А можно подробнее расписать?

@JuriiMW · 05.05.2017, 06:31

Сообщение от Гигабайт

А можно подробнее расписать?

Конечно можно:

Pascal

begin
  var s := ReadLnString('Введите слова строкового массива через пробел:');
  /// Здесь вставить строку, которую привёл многоуважаемый volvo
end.

@Гигабайт · 05.05.2017, 20:11 **[ТС]**

Нет,может начало так:
1 var A:array[1..10] of string;
?

@volvo · 05.05.2017, 20:50

Не, так скучно. Это в Турбо-Паскале так писали, потому что ничего другого нельзя было делать, а тут современный компилятор - зачем же его использовать тогда, если писать программы как 20 лет назад?

@Гигабайт · 20.05.2017, 17:31 **[ТС]**

Ну,мне нужно так.Я ж не просто так прошу написать,как 20 лет назад.

Добавлено через 3 минуты
Я понял.Не ту тему выбрал,надо было Турбо-Паскаль.

@Гигабайт 0 / 2 / 0 Регистрация: 06.02.2017 Сообщений: 28
		1
	Найти число элементов, которые начинаются с той же буквы, на которую оканчивается первый элемент 04.05.2017, 16:15. Показов 764. Ответов 7 Метки нет (Все метки) Задайте строковый массив.Определите и выведите на экран кол-во элементов,которые начинаются с той же буквы,на которую оканчивается первый элемент. 0

@Гигабайт 0 / 2 / 0 Регистрация: 06.02.2017 Сообщений: 28
	04.05.2017, 20:46 [ТС]	4
	А можно подробнее расписать? 0

@Гигабайт 0 / 2 / 0 Регистрация: 06.02.2017 Сообщений: 28
	05.05.2017, 20:11 [ТС]	6
	Нет,может начало так: 1 var A:array[1..10] of string; ? 0

@volvo Супер-модератор 32793 / 21133 / 8144 Регистрация: 22.10.2011 Сообщений: 36,393 Записей в блоге: 8
	05.05.2017, 20:50	7
	Не, так скучно. Это в Турбо-Паскале так писали, потому что ничего другого нельзя было делать, а тут современный компилятор - зачем же его использовать тогда, если писать программы как 20 лет назад? 0

@Гигабайт 0 / 2 / 0 Регистрация: 06.02.2017 Сообщений: 28
	20.05.2017, 17:31 [ТС]	8
	Ну,мне нужно так.Я ж не просто так прошу написать,как 20 лет назад. Добавлено через 3 минуты Я понял.Не ту тему выбрал,надо было Турбо-Паскаль. 0

Опции темы