Подсчитать количество букв О и А во введенной строке

@yuliana12 · Регистрация: 10.01.2018

...
Подсчитать количество букв О и А во введенной строке

@ZX Spectrum-128 · 10.01.2018, 20:44

Подсчитать количество букв А в строке, которую ввел пользователь

@Hitoku · 11.01.2018, 11:40

Как вариант

Pascal

begin
  write(ReadlnString('Строка:').ToUpper.Where(v -> (v = 'А') or (v = 'О')).GroupBy(v -> v)
    .Select(v -> format('Количество {0} - {1}', v.First, v.Count))
      .DefaultIfEmpty('Заданные символы отсутствуют в строке').JoinIntoString(NewLine));
end.

@yuliana12 0 / 0 / 0 Регистрация: 10.01.2018 Сообщений: 29
		1
	Подсчитать количество букв О и А во введенной строке 10.01.2018, 20:39. Показов 1438. Ответов 2 Метки нет (Все метки) ... Подсчитать количество букв О и А во введенной строке 0

@ZX Spectrum-128 6804 / 4563 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	10.01.2018, 20:44	2
	Подсчитать количество букв А в строке, которую ввел пользователь 0

Опции темы

Подсчитать количество букв О и А во введенной строке

Решение