Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
vlad200513
02.05.2022 19:13 •
Информатика
Pascal дано предложение. если в этом предложении первая буква встречается более 3 раз, заменить её на восклицательный знак. исходный текст задать самостоятельно таким образом, чтобы решалась .
Показать ответ
Ответ:
TimuR2112
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 оценок)
Популярные вопросы: Информатика
Polinakey9283773744
22.09.2020 03:15
Практическая работа №22 Тема: Разработка линейных алгоритмовЗадание:1. Задача 1. Найти площадь треугольника со сторонами a,b и с (линейный алгоритм). Составитьблок-схему....
Ястеб22
17.01.2021 04:41
Выберите блок схему оператора выбора. Верных ответов: 2...
TTpopoK
02.12.2021 23:08
Сообщение было закодировано. Использовались только буквы из таблицы A(@#)N(##@)C(##)F(#@)(M(#@#) Определи, какое сообщение закодировано в строчке. ###@@##@#...
kristiniiiiiii
11.02.2021 16:23
Могут ли почтовые ящики, размещенные на разных сервисах, иметь одинаковые идентификаторы? если да, то почему могут?...
Djessika24
11.02.2021 16:23
№1: вывести на экран сообщение, есть ли хотя бы 1 отрицательный элемент в массиве, размерностью n, сформированном пользователем. №2: дан одномерный массив вещественных...
кирюха6677
28.12.2020 08:53
По информатике ! вывести на экран квадраты и кубы целых чисел от 1 до 8 программа паскаль с циклами ,,пока до...
sens1980
10.05.2022 17:13
ТОЛЬКО НА С++ (СИРИУС) Магический квадрат Магическим квадратом называют таблицу, в которой записаны числа 1,2,3,… по одному разу, так что сумма чисел в каждой строке...
tania071168
19.05.2023 03:20
При какой из ниже приведённых температур средняя скорость направленного движения электронов в проводнике будет наибольшей ?Напряжение во всех случаях одинаково....
svsand
19.05.2023 03:20
Дан раствор серной кислоты, а также набор следующих реактивов: цинк, соляная кислота, растворы сульфита магния, карбоната натрия, хлорида меди(II). Используя только...
bydarinav2
05.06.2023 10:59
Що було в отворі на місці цеглини Гер Переможний...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.