Паскаль. написать простую программу. дана фраза S:='Over the pond and far away'; Необходимо:

- удалить все буквы "а", вывести на какой они были позиции;

- вместо букв "а" вставить "е";

- найти буквы "l" и заменить на "g";

- вставить в середину строки "+".

Question

Информатика

Трифена

30 января, 20:34

Паскаль. написать простую программу. дана фраза S:='Over the pond and far away'; Необходимо:

- удалить все буквы "а", вывести на какой они были позиции;

- вместо букв "а" вставить "е";

- найти буквы "l" и заменить на "g";

- вставить в середину строки "+".

+2

Ответы (1)

Знаете ответ на вопрос?

Мирон · Answer 1

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.