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.