В строке между словами вставить вместо пробела запятую и пробел - Free Pascal
Формулировка задачи:
в ряде между словами вставить вместо пробела, запятую и пробел
Решение задачи: «В строке между словами вставить вместо пробела запятую и пробел»
textual
Листинг программы
var
i: integer;
s: string;
begin
readln(s);
for i := Length(s) downto 1 do
if s[i] = ' ' then Insert(',', s, i);
writeln(s);
end.
Объяснение кода листинга программы
В данном коде происходит следующее:
- Объявляются две переменные:
- i типа integer (целое число), используемая в цикле,
- s типа string (строка), в которую считывается строка из стандартного ввода.
- С помощью функции readln() в переменную s считывается строка из стандартного ввода.
- Затем выполняется цикл for, который начинается с последнего символа строки (Length(s) downto 1) и проверяет каждый символ на равенство пробелу (' ').
- Если символ является пробелом, то с помощью функции Insert(',', s, i) в строку s вставляется запятая и пробел.
- После завершения цикла, измененная строка выводится на стандартный вывод с помощью функции writeln(). Таким образом, данный код меняет все пробелы в строке на запятую и пробел.