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