Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
lokys01twin
28.10.2022 18:06 •
Информатика
Составьте программу подсчета количества слов мама в строке. pascal abc
Показать ответ
Ответ:
котбутерьрод
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 оценок)
Популярные вопросы: Информатика
uliana3447
13.12.2021 07:40
Задача. Дано число а. Если оно является положительным то прибавить к нему 1, в противном случае вычесть из него два. Вывести полученное число. (тест, блок-схема, программа...
zinovevartem2017
15.05.2020 00:08
Вычисли значение математического выражения в MS Excel: (82+191)−2(71:(3+11)). (ответ округли до сотых)...
julija74
25.03.2022 10:27
Внешний трафик СкоростьВх=5256,Исх=4128Кбит это сколько кб/сек?...
Caesar228
01.10.2021 22:35
Тема массив на паскале. вы приобрели котёнка. каждый вечер вы определяете его вес с весов. как можно описать на паскале массив, в котором будут храниться значения веса...
KrasnovaLu82
01.10.2021 22:35
На циклы. составить программу в ! ! 3. однажды умный бедняк попросил у скупого богача приюта на две недели, причем сказал: «за это я заплачу тебе в первый день 1 рубль,...
sssooonnnyyyaaa1
18.12.2020 18:42
Дракон каждый год отращивает по три головы, но после того, как ему исполнится 100 лет - только по две. сколько голов и глаз у дракона, которому n лет?...
makesim
18.12.2020 18:42
Используя следующие фрагменты составьте условный оператор: 1)a: =с 2)if 3)a=b 4)then 5)do 6)while...
Andrianovnd
17.05.2021 06:53
Файл размером 500 кбайт передается через некоторое соединение в течении 2 минут...
лисичка23456
17.05.2021 06:53
Напишите программу которая находит сумму элементов массива размерность массива 4x4...
Лизок892
17.05.2021 06:53
Файл размером 5000 кбайт передается через некоторое соединение в течении 2 минут. определите размер файла (в кбайт),который можно передать через это соединение за 48...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.