Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 895 б
- Dwayne_Johnson 865 б
17 декабря 2022 06:05
359
Составьте программу, позволяющую проверить правописание "жи" и "ши" в строке 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
Остались вопросы?
Еще вопросы по категории Информатика
Помогите составить алгоритм на АЯ решения квадратного уравнения и блок схему уравнения ах²+bx+с=2...
Какая формула соответствует поиску документа с любым из трех слов? Игра| Инженер | Задача Игра Инженер Задача "Игра *Инженер Задача" "Игра Инжен...
2. Наберите 1 литр воды в любом из двух сосудов A (объемом 11 литров) или B (объемом 2 литра). Изначально сосуды пустые. Напишите набор команд, исполь...
Сколько бит в слове мегабайт...
Переведите целые числа из десятичной системы счисления в двоичную 1) 2304 2) 5001...