Предмет: Информатика,
автор: marinamarkova1
⚠️⚠️⚠️Массив из 5 элементов.
Посчитать количество согласных и вывести.
PASCAL ⚠️
marinamarkova1:
Русские ,общее количество
Ответы
Автор ответа:
0
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrString('Вводите элементы массива построчно'+NewLine,5);
a.Select(t->t.ToLower.MatchValues('[аеёиоуыэюя]').Count).Sum.Println
end.
Пример
Вводите элементы массива построчно
Карл у Клары украл кораллы
А роза упала на лапу Азора
Это просто тест
Наша Маша громко плачет
А у нас нынче понедельник!
43
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrString('Вводите элементы массива построчно'+NewLine,5);
a.Select(t->t.ToLower.MatchValues('[аеёиоуыэюя]').Count).Sum.Println
end.
Пример
Вводите элементы массива построчно
Карл у Клары украл кораллы
А роза упала на лапу Азора
Это просто тест
Наша Маша громко плачет
А у нас нынче понедельник!
43
Интересные вопросы
Предмет: Информатика,
автор: fmoksanka
Предмет: Химия,
автор: rino133
Предмет: Геометрия,
автор: Аноним
Предмет: Алгебра,
автор: alickkcila