Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
17 декабря 2022 06:05
499
Составьте программу, позволяющую проверить правописание "жи" и "ши" в строке s. Выведите на экран количество допущенных ошибок и исправленную строку.
1
ответ
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.
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
·
Хороший ответ
19 декабря 2022 06:05
Остались вопросы?
Еще вопросы по категории Информатика
На месте преступления были обнаружены четыре обрывка бумаги 4.243 116.2 13 .23 А Б В Г Посмотрите задание 478 и 458...
Вы можете использовать алфавит из двух символов: 0 и 1. Сколько разных трёхсимвольных слов существует в этом алфавите? Для ответа на вопрос постройте...
Для передачи аварийных сигналов договорились использовать специальные цветные сигнальные ракеты, запускаемые последовательно. Одна последовательность...
Видеопамять - это: 1) электронное энергозависимое устройство для хранения двоичного Кода изображения, выводимого на экран 2) программа, распределяющая...
Вычислите сколько байтов занимает на CD одна минута стереозаписи(частота дискретизации 44000 разрядность 16 битов) Какова максимальная продолжительнос...