Составьте программу, меняющую в слове Х все сочетания "кар" ** сочетание "акр"

Question

Составьте программу, меняющую в слове Х все сочетания "кар" на сочетание "акр"

Answer 1

Программа во вложении.

Comments

Program asd;
Var
  n:string;
  i:integer;
Begin
  Writeln('Введите предложение');
  Readln(n);
  For i:=1 to length(n) do
    Begin
    if ((n[i]='к') or (n[i]='К')) and ((n[i+1]='а') or (n[i]='А')) and ((n[i+2]='р') or (n[i]='Р'))
      then begin
      n[i]:='а'; n[i+1]:='к';
      end;
    End;
  Writeln(n);
End.

---

Жаль, что редактировать запретили