Задана строка. Подсчитать, сколько пробелов в строке. Паскаль.Спасибо.

Question

Задана строка. Подсчитать, сколько пробелов в строке. Паскаль.
Спасибо.

Comments

Так точно

Answer 1

Program E07;
  uses crt;
    var
      S: string;
      i,k: integer;
begin
  clrscr;
  writeln('Введите строку: ');
  readln(S);

    K:=0;

    for i:=1 to length(S) do
    if S[i] = ' ' then
      K:=K+1;

    writeln('В строке ',K:2,' пробелов!');
end.

Comments

Знакомые всё лица :)
Большое спасибо.