Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
katya022
25.05.2021 04:58 •
Информатика
Вывести на экран номера букв которые являются согласными.
Показать ответ
Ответ:
ппсомо3657
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 оценок)
Популярные вопросы: Информатика
ahmedov2007
25.01.2021 04:03
Придумай другую задачу имеющую такое же решение...
Znanija027
07.02.2020 22:17
Кроссворд на тему гиперссылка и сноски...
Lena537837
15.01.2020 16:33
2. укажите три верных высказывания (несколько верных ответов) 1) 1-е поколение компьютеров – это эвм, основанные на использовании радиоламп 2) 2-е поколение компьютеров – это...
nastiya1111machneva
10.11.2022 21:52
ответьте 1. дополните предложения а)эргономика - это наука,изучающая взаимодействие для благополучия на рабочем месте. б) по правилам техники безопасности монитор располагают...
serditex89041361
14.03.2023 16:07
Какие конструкции компьютера вам известны? а)прикладной б)ручной в) мобильный г) настольный может быть несколько вариантов ответа...
александр199110
30.01.2020 03:53
Напишите программу на паскале для вычисления произведение отрицательных. количество введенных чисел неизвестно, 0 – признак окончания ввода чисел....
0121090066
30.01.2020 03:53
Напишите программу для нахождения нок для n чисел (pascal)...
loginov555
18.03.2021 01:27
Что находится по координатам: 13 градусов южной широты, 26 градусов восточной долготы...
didar6
18.03.2021 01:27
Сочинение в жизни всегда есть место подвигу...
yyyye
18.03.2021 01:27
Іть скласти казку за прислів ям сім раз відмір, а один раз відріж будь !...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.