1. Информатика
  2. Паскаль.написать программу

Паскаль.написать программу для решения . дана строка, содержащая текст на языке, и некоторая буква. подсчитать, сколько слов начинается с указанной буквы.

Kristina3002 Kristina3002    3   15.04.2019 20:07    1

Ответы
Anas11111 Anas11111  29.05.2020 13:59

//PascalABC.NET 3.4.2

begin

 var str := readstring('Введите строку:').ToWords;

 var ch := readchar('Введите букву:');

 str.Where(x -> Pos(LowerCase(ch), LowerCase(x)) = 1).Count.Print;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
iIИльяIi iIИльяIi  11.08.2019 19:50
По какому правиоу расположены элементы в таблице? какие элемены пропущены? 1,3,6,10,.конец. 4,,60,84,112.конец. 16,48,.конец....
beka1098 beka1098  11.08.2019 19:50
Напишите программу которая вычисляет минимальное и максимальное число среди чисел вводимых с клавиатуры....
ffghh1gfdd ffghh1gfdd  30.06.2019 22:20
1)как строится доменная система имён? 2)в каких целях при передаче файлов по компьютерным сетям производится и х разбиение на интернет-пакеты?...
kirichmix kirichmix  30.06.2019 22:20
33. даны три действительных числа. возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень — отрицательные. написать в vba и дельфе...
vavilon4ik vavilon4ik  09.09.2020 21:29
1. ЧТО имеет информация? (приведите 5 примеров) 2. Какой она бывает? (5 примеров) 3. Она представлена... (5 примеров) 4. Что с ней делают? (5 прмеров) ​...
rowa9712men rowa9712men  10.09.2020 20:16
Напиши название измерительного прибора и определи его назначение: для выявления дефектов в кабельных линиях для измерения атмосферного давления для измерения величины угла для определения...
shark741 shark741  13.04.2020 11:13
Люди, кто знает, что за видеоигра на фото? Я не могу ее найти в интернете, может кто знает, от чего эта обложка геймеры И что за чувак на обложке? Мб она консольная.....
kutinaI kutinaI  13.04.2020 11:12
Расстовый код буквы е информатика 7 класс​...
марьям2789 марьям2789  02.11.2020 13:30
Ограничение времени:1 секунда Ограничение памяти:64Mb Ввод:стандартный ввод или input.txt Вывод:стандартный вывод или output.txt Дороти с Тотошкой, Страшила и Железный Дровосек долго...
nikkovalev199 nikkovalev199  02.11.2020 13:31
Мензер Деген не? Бир жауап: 1-Компютердин жадысы 2-Кагаз басып шыгару 3-Дыбысты реттеу 4-Экран бетиндеги жапылыктап туратын сызык...

Популярные вопросы