Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
sabinaaslanova
18.05.2021 12:39 •
Информатика
Составьте программу подсчета различных гласных букв в слове х.
Показать ответ
Ответ:
Chernysh14
01.10.2020 12:53
var
c,i: integer;
X: string;
begin
writeln('Введите слово: ');
read(X);
for i:=1 to length(X) do
if X[i] in ['а', 'о', 'э', 'и', 'у', 'ы', 'е', 'ё', 'ю', 'я'] then inc(c);
writeln('Гласных букв в слове: ',c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
mahinaboboeva
27.09.2020 04:58
Сдан список клиентов типографии, печатающей бланки, проспекты, листовки и т.п. известны соответствующие обьемы заказов клиентов в количестве экземпляров. рассчитать стоимость каждого...
davszbsk
29.12.2020 04:00
Написать программу, тестирующую знания по астрономии. вопросов должно быть 10. вариантов ответа 3, выбор ответа однозначный. по окончании теста должно быть выведено количество...
chudaevavera29
14.02.2020 20:57
Нужно написать программу, которая печатает true, если точка (x; y) принадлежит закрашенной области. pascale....
Qazyn
11.03.2023 12:24
Написать программу на машине тьюринга : даны два числа произвольной разрядности в четверичной системе счисления. вычислить их сумму...
John009
23.12.2020 04:04
Составить программу, которая создает массив случайных чисел, выводит его на экран и вычисляет сумму всех его элементов. random=10 взять...
MrZheka17
08.03.2021 18:55
1. алфавит племени мульти состоит из 8 букв. какое количество информации содержит сообщение, состоящее из 13 символов?...
sasapanskov
05.11.2022 13:12
5. разработать программу, моделирующую игру “скачки”. в игре участвуют 10 наездников; за каждый тур игры каждый из них продвигается вперед на расстояние от 1 до 5 км случайным...
GenGis
29.12.2022 10:32
Перечислить характерные особенности сенсорных устройств ввода...
Maks2801
29.12.2022 10:32
Решить по информатике : ) 1) в случае истинности логического выражения (a =x and b =x) or (c =x and x =d) можно утверждать, что (1) x принадлежит отрезку [c; d] и не принадлежит...
logan323
18.03.2023 10:05
Расположите величины в порядке убывания : 1024 бита; 1000 байтов; 1 бит; 1 байт; 1 кбайт....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
c,i: integer;
X: string;
begin
writeln('Введите слово: ');
read(X);
for i:=1 to length(X) do
if X[i] in ['а', 'о', 'э', 'и', 'у', 'ы', 'е', 'ё', 'ю', 'я'] then inc(c);
writeln('Гласных букв в слове: ',c);
end.