profile

Опубликовано 5 лет назад по предмету Информатика от Аккаунт удален

составьте программу вводящую предложения, состоящие из слов, разделенных произвольным количеством пробелов. предложения вводятся в одну строку. программа должна переписать введенную строку, оставив полько по одному пробелу между словами

  1. Ответ
    Ответ дан Me00007

    PROGRAM Probel;

    var s:string; n,i:integer;

    begin

    writeln ('введите текст с пробелами ');

    readln(s); repeat inc(i);

    n:=length(s);

    if (s[i]=' ') and ((s[i+1]=' ')) then  

    begin

    delete (s,i,1);dec(i);

    end;

    until i=n;

    writeln ('удалены лишние пробелы ');

    writeln(s);

    end.

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт


Другие вопросы
Хаааа
Математика - 3 недели назад

150+150=?

Хаааа
Математика - 3 недели назад

150+150=?

скляр
Биология - 1 месяц назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

скляр
Биология - 1 месяц назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

Дашка
Русский язык - 1 месяц назад

Подчеркните грамматическую основу. определите вид дополнения (прямое или косвенное), подпишите их 1) я отправил сестре телеграмму с поздравлением 2) учёные доказали существование жизни в космосе 3) он не знал никаких радостей, кроме чтения книг. 4) и поныне славятся у нас на севере замечательные русские умельцы.5) после тёплой ясной погоды наступило ненастье.6) подруга на станции купила новый иллюстрированный журналы и свежий мягкий хлеб. 7)хохлатые курицы ищут в сене мошек да букашек.8) и туман, и непогоду осень поздняя несёт


Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.