Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Составить программу для решения задачи:
Дана строка. Проверить правильность написания слов с ЖИ-ШИ. Если слово написано неправильно,то исправить его.

Ответ оставил Гость

Var a:string;
i:longint;

begin
readln(a);
for i := 2 to length(a) do
begin
if (a[i] = ы) then
if (a[i-1] = ж) or (a[i-1] = ш) then a[i] := и;
end;

writeln(a);
end.