Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
lok2005
15.03.2023 07:27 •
Информатика
Pascal дано предложение. если в этом предложении первая буква встречается более 3 раз, заменить её на восклицательный знак. исходный текст задать самостоятельно таким образом, чтобы решалась .
Показать ответ
Ответ:
swevkukviktor
03.10.2020 15:57
//PascalABC.NET 3.1 сборка 1239
begin
var s := ReadlnString('s =');
var c := s[1];
if s.ToLower().ToCharArray().Count(x -> x = c) >= 3 then begin
s := s.Replace(LowCase(c), '!');
s := s.Replace(UpCase(c), '!');
end;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
vanyadrachuk2004
16.01.2021 14:59
Даны натуральные числа от 20 до 50. Напечатать те из них, которые делятся на 3, но не делятся на 5. язык программирования Python. при цикла for...
Z1439373
04.03.2021 06:56
Назовите типы текстовых объектов в векторном редакторе Inkscape?...
Rapapapapap2212
14.01.2022 07:29
Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (–2, 3); (2, 5); (0, 3);...
euno
28.05.2021 16:31
Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (1, 2); (11, 2); (1, 12);...
Podruvnik
03.02.2023 13:01
очень надо У каждого в школе есть свой любимый учебный предмет. Но на уроках иногда бывает скучно. Придумай тему урока-игры по интересной для тебя дисциплине. Заполни...
artemsavenkov
07.03.2022 22:35
Посчитай, сколько байт информации содержит 88 бит?...
yanalitvinova
30.12.2020 12:13
Написать сочинение про environmental problems...
Ден0Морозов
30.12.2020 12:13
30 следующие предложения в present simple passive. example: 70 billion cups of tea __are drunk__ (drink) in britain every year. 1 a billion litres of fruit juice ) by...
Валерия1508
30.12.2020 12:13
Когнитивные,эмоциональные,мотивационные,инструментальные,трудности общения(обширно расписать)...
валерия821
30.12.2020 12:13
Ачто это за 1)чтобы из суммы двух чисел вычесть третье число,нужно из первого числа вычесть третье и к полученной разности прибавить второе число. 2)чтобы из разности...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var s := ReadlnString('s =');
var c := s[1];
if s.ToLower().ToCharArray().Count(x -> x = c) >= 3 then begin
s := s.Replace(LowCase(c), '!');
s := s.Replace(UpCase(c), '!');
end;
writeln(s);
end.