Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 865 б
15 декабря 2022 22:10
897
Составьте программу, позволяющую проверить правописание "жи" и "ши" в строке 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
·
Хороший ответ
17 декабря 2022 22:10
Остались вопросы?
Еще вопросы по категории Информатика
1)Какие таблицы относятся к таблицам типа "объект-свойство" 2)Какие таблицы относятся к таблицам типа "объект-объект" СРОЧНО...
Андрей составляет 7-буквенные коды из букв А, Н, Д, Р, Е, Й. Буквы А и Й должны встречаться ровно по одному разу, при этом буква Й не может стоять на...
для записи сообщения использовался 64 - символьный алфавит. Каждая страница содержит 20 строк. Все сообщение содержит 9300 байтов информации, и занима...
Найти значение у= 5х 2 -10х+2 Значение х вводится с клавиатуры....
Характерным свойством ОЗУ является?...