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

Паскаль. написать простую программу. дана фраза S:=Over the pond and far away; Необходимо:
- удалить все буквы "а", вывести на какой они были позиции;
- вместо букв "а" вставить "е";
- найти буквы "l" и заменить на "g";
- вставить в середину строки "+".

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

Var S:string;
i:integer;
Begin
WriteLn(Введи строку);
ReadLn(S);
For i:= 1 to Length(S) do
 Case S[i] of
 a:Begin S[i]:=e; Write(i, ) end;
 A:Begin S[i]:=E; Write(i, ) end;
 i:S[i]:=g;
 end;
Insert(+,S,trunc(Length(S)/2));
WriteLn;
WriteLn(S);
End.