Pascal,записиУдалить все символы +, а символы, не являющиеся +, удвоить

Pascal,записи
Удалить все символы +, а символы, не являющиеся +, удвоить

Задать свой вопрос
1 ответ

var

  inStr, outStr : string;

  i : integer;

begin

     outStr := '';

     ReadLn(inStr); 

     for i := 1 to Length(inStr) do

         if inStr[i] lt;gt; '+' then

            outStr := outStr + inStr[i] + inStr[i];

     WriteLn(outStr);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт