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

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

Ага

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.