Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Vanilingus
24.05.2021 14:06 •
Информатика
Составьте программу, позволяющую проверить правописание "жи" и "ши" в строке s. выведите на экран количество допущенных ошибок и исправленную строку.
Показать ответ
Ответ:
АкадемеG
17.09.2020 12:07
Var
b,i:integer;
S:string;
Begin
Readln(S);
b:=0;
For i:=1 to length(s) do
if i<length(s) then begin
if (s[i]='ж') or (s[i]='ш') then if s[i+1]='ы' then begin s[i+1]:='и'; b:=b+1; end;
End;
Writeln(b);
Writeln(s);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
BarsicX
29.11.2022 04:38
Як розставити 10 стільців у квадратній кімнаті, щоб біля всіх стін стільців було порівну. іть будь !...
stalkeregor344
05.10.2020 07:50
1. а) Записать в 24-х разрядную сетку число 74,3(ДЕСЯТИЧНАЯ), переведя его в двоичную СС, в формате с фиксированной точкой (запятая установлена после 12-ого разряда справа) и плавающей...
LoKotRon2017
02.06.2021 22:43
Напишите, программу на питоне. нужно. буду крайне...
angelinakunda
08.11.2021 22:57
Пусть P(n) – свойство натуральных чисел. Если: (1) выполняется P(0); (2) для каждого k ⩾ 0 из P(k) следует P(k + 1), тогда для каждого n ⩾ 0 справедливо P(n). Сформулирован метод …...
moonlightbiebs13
27.01.2021 01:15
Як організувати розгалуження в Scratch?...
yaantonio19
09.03.2020 01:55
Сравни устройство и назови их назначение...
DarkGay
03.05.2021 15:26
https://pets.easyrbx.com/ref/?link=https%3A%2F%2Feasyrbx.com%2F%3Faf_sub1%3D60498e8f619a98000b355467&apn=com.merge.puppy.free.rbx...
УЕД
13.08.2021 14:25
Определи минимально необходимую длину двоичного кода для кодирования 33 букв русского алфавита ответ в бит...
modar55
09.01.2023 14:04
Aquiz. what kind of camper are you? choose your answer. 1. at the weekends you a) spend a day on the sofa and watch tv b) spend your time with friends. c) walk your dog or go jogging....
volk007volk
09.01.2023 14:04
Отличительный признак живой материи от неживой - 1). развитие; 2)разрушение с теч. времени; 3)воспроизведение себе подобных тел; 4)изменение в зависимости от температуры окружающей...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
b,i:integer;
S:string;
Begin
Readln(S);
b:=0;
For i:=1 to length(s) do
if i<length(s) then begin
if (s[i]='ж') or (s[i]='ш') then if s[i+1]='ы' then begin s[i+1]:='и'; b:=b+1; end;
End;
Writeln(b);
Writeln(s);
End.