Подсчет количества пробелов в строке - Pascal ABC

Формулировка задачи:

Простенькая программка считает количество пробелов в строке. опыта почти нету поэтому есть вопросы на которые не могу найти ответа Интуитивно я понимаю, что происходит в этой функции но не могу понять зачем в функции, переменной count присваивается значение 0 так же не понимаю, что происходит в этом участке кода
 if s[i]=' ' then
  count := count+1;
program CountSpacesInString;
var
  str: string;
 
function CountSpaces (s: string): integer;
var
   i, count: integer;
begin
  count := 0;
  for i:=1 to length(s) do
  if s[i]=' ' then
  count := count+1;
  CountSpaces := count;
end;
 
{основная программа}
begin
  writeln('Программа подсчитывает количество пробелов '+'во введенной строке');
    repeat
       writeln('Введите исходную непустую строку:');
       readln(str);
         if (length(str)<1) then
            writeln('Исходная строка должна быть непустой');
    until length(str)>0;
writeln('В строке "',str,'" ',CountSpaces(str),' пробелов.');
 
readln;
end.

Код к задаче: «Подсчет количества пробелов в строке - Pascal ABC»

textual
count := 0;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 3.800 из 5


СДЕЛАЙТЕ РЕПОСТ