Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Medina20161102
04.11.2021 08:57 •
Информатика
Составьте программу подсчета количества слов мама в строке. pascal abc
Показать ответ
Ответ:
nastiaX352
07.10.2020 00:17
Var x:string;
i,y,z:longint;
begin
readln(x);
y:=length(x);
for I:=4 to y do
begin
if (x[i-3]='м') and (x[i-2]='а') and (x[i-1]='м') and (x[i]='а') then z:=z+1;
end;
write(z)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
79854246143TATIANA
09.05.2021 21:59
в массиве с 10 числами, заданной случайным образом найти: сумму чисел расположенных на нечетных местах решить в питоне...
Rinyasan
08.12.2021 01:11
Запишите шаблон, с которого необходимо найти файлы, имена которых состоят из 5 символов, где первый символ - буква s, третий - d, а первый символ расширении - буква d....
stendec
21.03.2023 23:18
Как включить ноутбук...
сашагалкина1
20.04.2023 08:10
Определите команда относящиеся к категории внешность...
анг26
07.10.2021 22:06
Запешите без пробелов пропущеное условие цикла в фоагменте для определения максимального из введенных натуральных чисел при условии что для выхода пользователь должен ввести...
Nastenavip80
13.02.2020 23:45
Когда пароход причалил к пристани на берег сошли 43пасажира а 38 пассажиров остались на пароходе сначала...
Darya0012
13.02.2020 23:45
Почему стих. маяковского ,,ничего не понимают так называется?...
katja060606
13.02.2020 23:45
Найдите длину окружности,диаметр которой равен 20см...
darina2340
13.02.2020 23:45
Написать сочинение или кинуть мысль для него: мои шалости или с нами не соскучишься...
lalka20022
13.02.2020 23:45
Какие советы тебе хотелось бы дать миньке и леле...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,y,z:longint;
begin
readln(x);
y:=length(x);
for I:=4 to y do
begin
if (x[i-3]='м') and (x[i-2]='а') and (x[i-1]='м') and (x[i]='а') then z:=z+1;
end;
write(z)
end.