begin write('s='); readln(s); for i := 1 to length(s) - 1 do begin sc := copy(s, i, 2); if (sc = 'чя') or (sc = 'щя') then begin s[i + 1] := 'а'; inc(k); end; if (sc = 'Чя') or (sc = 'Щя') then begin s[i + 1] := 'a'; inc(k); end; end; if k = 0 then writeln('Ошибок не обнаружено') else begin writeln('Обнаружены ошибки в количестве ', k, '. Ошибки исправлены'); writeln(s); end; end.
Answers & Comments
var
s, sc: string;
i, k: integer;
begin
write('s=');
readln(s);
for i := 1 to length(s) - 1 do
begin
sc := copy(s, i, 2);
if (sc = 'чя') or (sc = 'щя') then
begin
s[i + 1] := 'а';
inc(k);
end;
if (sc = 'Чя') or (sc = 'Щя') then
begin
s[i + 1] := 'a';
inc(k);
end;
end;
if k = 0 then writeln('Ошибок не обнаружено') else
begin
writeln('Обнаружены ошибки в количестве ', k, '. Ошибки исправлены');
writeln(s);
end;
end.