Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
hope903
21.06.2022 06:16 •
Информатика
Составьте программу подсчета различных гласных букв в слове х.
Показать ответ
Ответ:
Retyyyghiop
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 оценок)
Популярные вопросы: Информатика
Stasya13203
16.10.2022 00:03
В каком виде представлена информация в таблице умножения...
асема2005
20.10.2021 07:53
Выберите правильные ответы 1. закончите предложение: «алгоритмом называется …» а) нумерованный список б) маркированный список в) система команд исполнителя г) конечная последовательность...
fertnyhaw
25.09.2021 14:14
сделать таблицы исстиности (желательно с фото)...
JokeHa
14.10.2021 17:08
Напишите синтаксис функции возведения числа 6 в квадрат ...
Daxa666
11.11.2020 22:59
Задача 8. За рейтинговою системою оцінка визначається таким чином: якщо сумарний бал учня становить не менш як 92% від максимального, то виставляється оцінка 12, якщо не нижче...
thanksagainand
06.08.2021 11:47
Запиши развёрнутую запись числа. Дано число : fmcg10. Его развёрнута форма:...
aslan2002761
10.07.2022 07:34
Пример1: Дано число а. Если заданное число а удовлетворяет условию, то число а следует увеличить на 15. a=2 If a 5: a=a+15 print(a) Пример2: Написать программу которая проверяет...
Диана135793
28.01.2021 12:09
Определить Какие из перечисленных фактов относятся к текстовым редакторам и какие к текстовым процессором АОАОАООА ОЧЕНЬ...
anyacotick
05.08.2022 22:55
Расставьте в правильном порядке (((...
Bladsail
28.02.2022 15:40
ЗАПИСАТЬ ТОЛЬКО ОТВЕТЫ ОТВЕТЫ ДОЛЖНЫ БЫТЬ НА ВСЕ ПРЕМЕРЫ а) 12 км 3 дм ∙5 + 8 м 47 см : 2 б) 14 км 56 м :7 – 23 дм 45 см 87 мм в) 43 ц 26 кг: 3 + 4 кг 742 г ∙ 9 г) 7 ц 23 кг...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.