Задача на тему "Строки" - Pascal ABC

Вводится строка. Поставить запятую после каждого пробела данной строки.

Листинг программы

for i:=length(s) downto 1 do
if s[i]=' ' then insert(',',s,i+1);

Объяснение кода листинга программы

Переменная s представляет собой строку, которую мы обрабатываем.
1. Цикл for начинается с индекса length(s) и продолжается до 1. Это означает, что мы будем обрабатывать каждый символ в строке s, начиная с последнего и заканчивая первым.
2. Внутри цикла проверяется условие if s[i]=' '. Это означает, что мы проверяем, является ли текущий символ в строке s пробелом.
3. Если условие истинно (т.е. текущий символ является пробелом), то мы вызываем функцию insert(',',s,i+1). Эта функция вставляет запятую после текущего символа в строке s.
4. Индекс i+1 увеличивается на 1 после каждого выполнения условия, поэтому мы всегда вставляем запятую после текущего символа в строке s.