Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
дариякаримова
26.11.2020 22:20 •
Информатика
Вывести на экран номера букв которые являются согласными.
Показать ответ
Ответ:
100132
29.06.2020 21:26
Program gt;
var a:string;
l,i:integer;
begin
readln(A);
for i:=1 to l do
begin
if(a[i]<>'A')and(a[i]<>'Е')and(a[i]<>'Ё')and(a[i]<>'И')and
(a[i]<>'О')and(a[i]<>'У')and(a[i]<>'Ы')and(a[i]<>'Э')and(a[i]<>'Ю')and
(a[i]<>'Я')then writeln(i);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ррговугимв
09.04.2021 18:09
Закодировать с числовые кодов свою имя и фамилию егор сердюк...
skabshkqbsianshj
09.04.2021 18:09
Уроки по проводятся через день. если урок попадает на воскресенье, то переносится на понедельник. пользователь вводит дату первого урока. сгенерируйте расписание из дат...
fhuffggergryth5h6
09.04.2021 18:09
Решите все, , объяснения не обязательны, лишь бы решение и ответ. 1. алфавит содержит 32 буквы. какое количество информации несет одна буква? 2. информационное сообщение...
catyaserduck
17.04.2023 11:46
Написать простейшую программу на языке Python для вычисления суммы и произведения двух целых чисел, введенных с клавиатуры....
cvetlana15a
15.09.2022 16:16
Уважаемые пользователи с проблемой. В языке программирования C# есть триггер Collider.OnTriggerEnter, и нам хотелось бы узнать как вписать в этот триггер transform.position,...
Slimede
10.10.2022 23:00
Дано вещественное число r и массив размера n. найти элемент массива который наиболее близок к данному числу...
TOMIRIBOT
04.04.2023 02:08
Заполните таблицу характеристика типа круглых черви...
nurik139
04.04.2023 02:08
Всоставе молекулы метилового спирта есть 1 атом углерода, 4 атома водорода и 1 атома кислорода. вычислите массовые доли (%) элементов, состовляющих молекулу метилового...
Nina34732
03.02.2020 10:00
Что такое неопределенная форма глагола...
daysannas
03.02.2020 10:00
)краткий пересказ 1 и 2 частей за сестрою...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:string;
l,i:integer;
begin
readln(A);
for i:=1 to l do
begin
if(a[i]<>'A')and(a[i]<>'Е')and(a[i]<>'Ё')and(a[i]<>'И')and
(a[i]<>'О')and(a[i]<>'У')and(a[i]<>'Ы')and(a[i]<>'Э')and(a[i]<>'Ю')and
(a[i]<>'Я')then writeln(i);
end;
end.