Лучшие помощники
- Megamozg 2170 б
- Matalya1 1800 б
- DevAdmin 1685 б
- arkasha_bortnikov 740 б
- kirill_shatsov 715 б
14 декабря 2022 18:55
507
Составьте программу, позволяющую проверить правописание "жи" и "ши" в строке 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
Остались вопросы?
Еще вопросы по категории Информатика
Сколько раз будет выполнен этот цикл? i = 7 while i < 11: print ( "Привет!" ) i += 1...
Microsoft Excel (MS Excel) – это… Программа, предназначенная для создания и редактирования на экране изображений Система управления информацией под к...
Найди информационный объём статьи, которая набрана на компьютере и состоит из 20 страниц, на каждой странице 36 строк, в каждой строке 59 символов. от...
Почему отсканированный текст нельзя сразу обрабатывать текстовым редактором?...
Найдите все десятичные числа не превосходящие 25 запись которых в двоичной системе счисления оканчивается на 101....
Все предметы