Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
Маруся9991
27.08.2019 10:50 •
Информатика
Разработать функцию для решения обработки строк - подсчитать количество гласных букв в строке. паскаль.
Показать ответ
Ответ:
Egorpiernand
05.10.2020 22:37
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
function Glas(s:string):=s.Where(x->pos(UpCase(x),'АЕЁИОУЫЭЮЯ')>0).Count;
begin
var s:=ReadlnString('Введите текст');
Writeln('Гласных: ',Glas(s))
end.
Пример:
Введите текст Это мой примерчик для подсчета
Гласных: 10
0,0
(0 оценок)
Ответ:
DanaФайн
05.10.2020 22:37
//FPC 2.6.4
function _string(s: string):integer;
const z = ['А', 'Е', 'Ё', 'И', 'У', 'О', 'Ю', 'Ы', 'Я'];
var count, i: integer;
begin
count:=0;
for i:=1 to length(s) do if UPcase(s[i]) in z then inc(count);
result:=count;
end;
begin
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Søphia
03.02.2021 13:21
Выполнил решение в Пайтон. С програмы скинутт скрин если ещё сделаешь правильно и быстро скину ...
mkudryavceva10
03.02.2021 13:20
Напишите правильную запись выражения на языке Python (введите ваш ответ): * ...
Syrup75
27.09.2019 02:20
Объясните мне , зачем вообще нужен булевые данные в программировании. только по подробней и на простом языке, а то я тугодум...
asim2001
28.01.2021 21:11
НАПИСАТЬ КОД ДЛЯ PASCAL ! [за спам бан] (ОБЯЗАТЕЛЬНО ИСПОЛЬЗОВАТЬ ЦИКЛ С ПАРАМЕТРАМИ For to Do)Требуется написать код для :найти сумму рядов S=1 ++++...S:= S+1/nn:=n+1S=0 n=1S=1...
Arinkaah
28.01.2021 21:10
Для чего используется функция СУММ в электронной таблице Excel? a) для получения суммы квадратов указанных чиселb) для получения суммы указанных чиселc) для получения разности сумм...
Aznabaev09
28.01.2021 21:09
Постройте блок-схему, используя неполную форму ветвления, для решения следующей задачи: С клавиатуры вводится величина угла в градусах. Составить программу определяющую какой это...
vvndas1
18.09.2019 12:40
Напишите программу пересчета расстояния из верст в километры (1 верста=1066,8м) и веса из фунтов в килограммы (1 фунт = 409,5 г)...
AksenovaKatya2007
26.09.2019 02:10
Какое определение относится к понятию «истина»: а) верное отражение окружающей действительности в сознании человека, воспроизведение ее такой, какой она существует сама по себе,...
tural25
26.09.2019 00:26
Составить монипулятивный диалог связаный с гостинечной сферой...
Shivan2002
26.09.2019 02:10
Периметр параллерограмма равен 28 см а одна из его сторон 8 см найдите другую сторону параллерограмма...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
// Внимание! Если программа не работает, обновите версию!
function Glas(s:string):=s.Where(x->pos(UpCase(x),'АЕЁИОУЫЭЮЯ')>0).Count;
begin
var s:=ReadlnString('Введите текст');
Writeln('Гласных: ',Glas(s))
end.
Пример:
Введите текст Это мой примерчик для подсчета
Гласных: 10
function _string(s: string):integer;
const z = ['А', 'Е', 'Ё', 'И', 'У', 'О', 'Ю', 'Ы', 'Я'];
var count, i: integer;
begin
count:=0;
for i:=1 to length(s) do if UPcase(s[i]) in z then inc(count);
result:=count;
end;
begin
end.