Подсчитать количество слов, начинающихся с буквы 'а'.

@Alena_M · Регистрация: 19.05.2010

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

Задание 1
Дано предложение-строка. Подсчитать количество слов, начинающихся с буквы 'а'.

Задание 2
В заданный непустой текст входят только цифры и буквы. Определить, удовлетворяет ли он следующему свойству: текст является записью десятичного числа, кратного 4.

Задание 3
Дан текст, содержащий числительные от нуля до ста. Заменить в тексте числительные соответствующими числами.

11.11.2010, 13:03

Сообщение от Alena_M

Дано предложение-строка. Подсчитать количество слов, начинающихся с буквы 'а'.

мне тоже нужно решение на эту задачу в паскале, помогите пожалуйста срочно завтра сдать надо!!!!

@Irradiator · 11.11.2010, 13:49

Вот решение на Bugland Pascal 2010:
1)

Pascal

countWords :: String -> Int
countWords = length . filter ((.) (=='a') (!!0)) . words
 
*Main> countWords "1 2 3 a1 a2"
2

@Alena_M 0 / 0 / 0 Регистрация: 19.05.2010 Сообщений: 19
		1
	Подсчитать количество слов, начинающихся с буквы 'а'. 24.06.2010, 23:49. Показов 2160. Ответов 2 Метки нет (Все метки) Задание 1 Дано предложение-строка. Подсчитать количество слов, начинающихся с буквы 'а'. Задание 2 В заданный непустой текст входят только цифры и буквы. Определить, удовлетворяет ли он следующему свойству: текст является записью десятичного числа, кратного 4. Задание 3 Дан текст, содержащий числительные от нуля до ста. Заменить в тексте числительные соответствующими числами. 0

DaFk@
	11.11.2010, 13:03	2
	Сообщение от Alena_M Дано предложение-строка. Подсчитать количество слов, начинающихся с буквы 'а'. мне тоже нужно решение на эту задачу в паскале, помогите пожалуйста срочно завтра сдать надо!!!!

Опции темы

Подсчитать количество слов, начинающихся с буквы 'а'.

Решение