Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
17 декабря 2022 06:05
525
Составьте программу, позволяющую проверить правописание "жи" и "ши" в строке 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
Остались вопросы?
Еще вопросы по категории Информатика
1. Запишите на алгоритмическом языке: а)ax² + bx + c б) v + at²/2 в)1/2(a+b)h г)1+x₁x₂/ b²c д)√a²+b² 2. Среди приведённых ниже четырёх арифметиче...
СОСТАВИТЬ СХЕМУ X=A*B(верхнее подчёркивание)+A(верхнее подчёркивание)*B*C(верхнее подчёркивание) и всё это тоже верхнее подчёркивание там картинка эт...
Написать программу нахождения периметра прямоугольника, стороны которого вводятся с клавиатуры....
Некое растровое изображение было сохранено в файле p1.bmp как 24-разрядный рисунок. Во сколько раз будет меньше информационный объём файла p2.bmp, есл...
В чем преимущество компьютерных информационных моделей перед теоретическими? Вопрос из учебника информатики за 10 класс, автор Семакин, §13 "Компьютер...