Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1695 б
- arkasha_bortnikov 860 б
- Dwayne_Johnson 845 б
14 декабря 2022 18:55
606
Составьте программу, позволяющую проверить правописание "жи" и "ши" в строке 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
·
Хороший ответ
16 декабря 2022 18:55
Остались вопросы?
Еще вопросы по категории Информатика
Тактовая частота микропроцессора измеряется в:...
Python 3 HELP Написать 3 программы 1. Известно, что 1 дюйм равен 2.54 см. Разработать приложение, переводящие дюймы в сантиметры и наоборот. (перево...
Дано натуральное число. Найдите число десятков в его десятичной записи (то есть вторую справа цифру его десятичной записи)....
На рисунке изображена схема дорог, связывающих торговые точки А, Б, В, Г, Д, Е, К. По каждой дороге можно двигаться только в направлении, указанном ст...
Ученик задумал целое число от -10 до 10. Какова вероятность что квадрат этого числа меньше 10...
Все предметы