Главная arrow ГДЗ arrow Школьные задания arrow Pascal замена пробелов

Pascal замена пробелов

Pascal замена пробелов, Задание на паскале, Замена пробелов на "_"

Пользователь вводит с клавиатуры предложение. Программа выводит это же предложение, но все пробелы заменяет на знак "_"
Пример:
Ввод: Мама мыла раму
Вывод: Мама_мыла_раму

Решение
var
    s: string;
    i: byte;
begin
    readln(s);
 
    i := 1; // замена пробелов звездочками
    while i <= length(s) do begin
        if s[i] = ' ' then
            if s[i-1] = '_' then begin
                delete(s,i,1);
                i := i - 1;
            end
            else begin
                delete(s,i,1);
                insert('_',s,i);
            end;
        i := i + 1;
    end;
 
    writeln(s);
end.