Question

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

Answer 1

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.