Дана символьная строка. Определить -количество пробелов в данной строке.
program string_14-
var s:string-
k,i:integer-
begin
Write(‘введите строку ‘)-
Readln(s)-
i:=1-
repeat
if s[i]=’ ‘ then k:=k+1-
i:=i+1
until i=length(s)-
writeln(‘количество пробелов=’,k)-
readln-
end.