Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
neznaika167
22.01.2023 02:59 •
Информатика
Составие программу,которая печатает "да", если слово содержит букву"е" и "нет", если не содержит . отладку выполнить для слов : "предмет" и "колонна"
Показать ответ
Ответ:
FuzziBoy
03.10.2020 17:12
Var
s, a: string;
i: integer;
begin
readln(s);
{первый вариант}
a := 'Нет';
for i := 1 to length(s) do
if (s[i] = 'e') or (s[i] = 'е') then begin
a := 'Да';
break;
end;
writeln(a);
{второй вариант}
if (Pos('e', s) > 0) or (Pos('е', s) > 0) then
writeln('Да')
else writeln('Нет');
end.
0,0
(0 оценок)
Ответ:
сарвиназ002
03.10.2020 17:12
Var x:string; k,i:integer;
begin
k:=0;
read(x);
for i:=1 to length(x) do begin
if copy(x, i, 1)='е' then k:=k+1;
end;
if k>0 then writeln('Да') else writeln('Нет');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
maZIK007
12.10.2020 03:15
Маша и миша стали разные алгоритмы памятки для грибников цель положить в корзину только съедобный гриб в рабочей тетради заполни заполни пропуски в алгоритме...
ultraomegaus
15.10.2021 10:19
Используя только циклы в java 1. найти сумму четных чисел и их количество в диапазоне от 1 до 99 2. проверить простое ли число? (число называется простым, если оно делится...
Reeezz
25.09.2021 09:55
Как преобразовать файлы формат html с frontpage? ...
armodno
23.12.2021 20:57
Только решение(что у вас выйдет из этого)...
суперкрут1
14.05.2020 03:59
Көмектесесіздерме өтініш тура ертең керек 50 беремін өтініш 1 мен 2 тапсырма на завтра нужно 50 1 и 2 ...
сима666
29.01.2021 04:27
Водной из кодировок unicode каждый символ кодируется 16 битами. определите размер следующего предложения в данной кодировке.любишь кататься - люби и саночки возить! 40...
kirichmix
04.08.2020 20:58
Счетвёртым там надо чем они похожи и чем они отличаются желательно на казахском...
nsalexandrovna
15.12.2021 22:21
Нужно напечатать точно такой же текст...
kirill13125a
23.11.2021 00:55
Нужно запрограмировать сайт по схеме...
Hah125
09.03.2022 00:14
Вэлектронную таблицу занесли данные о калорийности продуктов. ниже первые несколько строк таблицы. в столбце a записан продукт; в столбце b – содержание в нём жиров; в...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
s, a: string;
i: integer;
begin
readln(s);
{первый вариант}
a := 'Нет';
for i := 1 to length(s) do
if (s[i] = 'e') or (s[i] = 'е') then begin
a := 'Да';
break;
end;
writeln(a);
{второй вариант}
if (Pos('e', s) > 0) or (Pos('е', s) > 0) then
writeln('Да')
else writeln('Нет');
end.
begin
k:=0;
read(x);
for i:=1 to length(x) do begin
if copy(x, i, 1)='е' then k:=k+1;
end;
if k>0 then writeln('Да') else writeln('Нет');
end.