Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Sewrc
28.03.2021 15:16 •
Информатика
Составьте программу подсчета количества слов мама в строке. pascal abc
Показать ответ
Ответ:
frikadel1
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 оценок)
Популярные вопросы: Информатика
ино7
26.07.2020 05:12
Составьте программу,заменяющую каждый из элементов t[i] массива t(n) минимальным среди первых i элементов данного массива....
nik65112
01.07.2021 00:40
Определите два преимущества использования NETBOOK вместо ноутбука....
Сметана011
17.03.2020 14:13
В каком случае одна и та же файловая переменная может быть использована для работы с несколькими файлами, а в каком - нет?...
astashkin222
23.10.2020 01:11
Решить задачу № 2 на с. 110. Учебник Босова...
МАШЕНЬКА881
24.06.2020 06:15
1. Оберіть рядки з неправильним записом: x = input() x = input (x) = input y = int(input) y = int(input()) 2. Піднесення до степеня у Python позначають ++ *** ** +* 4. Виберіть...
keklol1990
25.10.2022 03:56
)для того чтобы сохранить отсканированные рисунки было заложено целое число x мбайт памяти. если сканирование рисунков произвести с использованием палитры из 2^24 цветов,...
MrZick33446
19.10.2021 10:30
Среди приведённых ниже трёх чисел, записанных в различных системах счисления, найдите максимальное и запишите его в ответе в десятичной системе счисления. В ответе запишите...
arianaforever1
07.09.2022 22:29
2. Подчеркните одной линией то, что делать МОЖНО, и двумя линиями то, чего делать НЕЛЬЗЯ в тексте ниже: Входить в кабинет информатики без разрешения учителя. Заходить в компьютерный...
DimanGame2016
07.09.2022 22:29
Какой разделитель используется для задания не смежного диапазона в табличном процессоре? : , . ; !...
dariadarina1
07.09.2022 22:29
Среди приведенных ниже трёх чисел, записанных в различных системах счисления, найдите минимальное и запишите его в ответе десятичной системе счисления. Вответе запишитие...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.