Паскаль. написать простую программу. дана фраза S:='Over the pond and far away'; Необходимо: - удалить все буквы "а", вывести на какой они были позиции; - вместо букв "а" вставить "е"; - найти буквы "l" и заменить на "g"; - вст...
Паскаль. написать простую программу. дана фраза 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.
Не нашли ответ?
Похожие вопросы