Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1685 б
- arkasha_bortnikov 800 б
- Dwayne_Johnson 780 б
15 декабря 2022 22:10
813
Составьте программу, позволяющую проверить правописание "жи" и "ши" в строке 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) 12 декабря отмечают день конституции РФ или День народного единства 2) Зи...
У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 1 2. умножь на b (b - неизвестное натуральное число; b ≥ 2) Выпол...
Определи значение переменной kk после выполнения фрагмента программы: i := 2; k := 2; while i k := k * 2; i := i + 1; end;...
Дано натуральное число N. Вычислить: s=1/1+1/2+1/3+⋯+1/N составить программу в Паскале...
Определите какое из указанных ниже имен файлов удовлетворяет маске: ?ba*r.?xt 1)bar.txt 2)obar.txt 3)obar.xt 4)barr.txt...
Все предметы