Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 840 б
- Dwayne_Johnson 840 б
17 декабря 2022 06:05
296
Составьте программу, позволяющую проверить правописание "жи" и "ши" в строке 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
Остались вопросы?
Еще вопросы по категории Информатика
Административный домен верхнего уровня имеют следующие серверы: www.klyaksa.net www.edu.ру www.microsoft.com www.5ballov.ru...
C/C++ Найти Пи и показать в консоле по формуле Валлиса с помощью цикла. Желательно не выходить за пределы main...
Дан фрагмент таблицы истинности выражения F:(продолжение в фото) Помогите пожалуйста...
Для генерации случайного целого числа из интервала [10; 20] необходимо использовать выражение: random(20) random random(10)+10 random(11)+10...
ОЧЕНЬ СРОЧНОООО Сколько мегабайтов содержится в 4527 килобайтах ? (Ответ округли до 3 знаков после запятой) а) 4635648 б) 0,004 в) 4,420 г)...
Все предметы