Задать вопрос Регистрация
Помочь другим

  • Помогите пожалуйста написать программу в паскале : символы, стоящие на четных местах заменить на *. Пользоваться можно только: Pos,Insert,Delete,Length,Copy

Ответы 1

  • чесно говоря без них куда легче

     

    var s:string;

    i:integer;

    Begin

      read(s);

      for i:= 1 to length(s) do

        if i mod 2 = 0 then s[i]:='*';

      writeln(s);

    End.

     

    с ними только больше кода

     

    var s:string;

    i:integer;

    Begin

      read(s);

      for i:= 1 to length(s) do

        if i mod 2 = 0 then begin

          Delete(s,i,1);

          Insert('*',s,i);

        end;

      writeln(s);

    End.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years