Модернизировать программу, так, чтобы дополнительно узнать сколько пробелов было в строке - Pascal
Формулировка задачи:
а)Составить программу, которая будет подсчитывать количество символов во введённой строке. б)Модернизировать программу, таким образом, чтобы дополнительно узнать сколько пробелов было в строке.
Ну с (а) понятно.
А вот с (б) не совсем.
За ранее благодарю.
var s:string;
begin
writeln('Vvodi Stroky "s"');
readln(s);
writeln(Length(s));
End.Решение задачи: «Модернизировать программу, так, чтобы дополнительно узнать сколько пробелов было в строке»
textual
Листинг программы
program Dekio;
var
s :string;
i,k :integer;
begin
k:=0;
readln(s);
for i:=1 to length(s) do
if s[i]=' ' then
inc(k);
writeln('Количество символов ',length(s));
writeln('Количество пробелов ',k);
end.
Объяснение кода листинга программы
- Создается программа
Dekio. - Объявляются переменные: s - строка, i, k - целые числа.
- Чтение строки из стандартного ввода с помощью функции readln.
- Инициализация переменной k с 0.
- Цикл for для каждого символа в строке s.
- Внутри цикла проверяется, является ли текущий символ пробелом.
- Если символ является пробелом, то переменная k увеличивается на 1 с помощью функции inc.
- После завершения цикла выводится количество символов в строке с помощью функции length.
- После завершения цикла выводится количество пробелов в строке с помощью переменной k.