Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
14 декабря 2022 18:55
818
Составьте программу, позволяющую проверить правописание "жи" и "ши" в строке 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
Остались вопросы?
Еще вопросы по категории Информатика
Что такое системная шина. Что такое USB-порт?...
А12. Какое устройство ПК предназначено для вывода информации? 1)процессор 2)монитор 3)клавиатура 4)магнитофон...
2. Сравните (поставьте знак отношения): 3 байтах 24 бита 1 Кбайт + 9000 бит 1536 бит + 1,5 Кбайт 1536 бит + 1,5 Кбайт 8192 байта + 9 Кбайт 100 Кбайт +...
Известны площади круга и квадрата. Определить, уместится ли круг в квадрате. Составить блок-схема...
Пожалуйста!! Запишите 32-битный IP -адрес в виде четырёх десятичных чисел, разделённых точками: 1) 11001100100110001011111001000111; 2) 11011110110...