• Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Вставить после каждого слова запятую.

Ответы 1

  • var

      s, r : String;

      i : Integer;

    begin

      r := '';

      Writeln('Введите строку:');

      Readln(s);

     

      while s[i] <> #0 do

      begin

        if s[i] = ' ' then r:= r + ',';

        r := r + s[i];  

    end; 

     

     Writeln(r);

     Readln; 

    end.

    • Автор:

      pebbles
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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