Program String_6-

uses crt-

var tec : string-

l,i,n : longint-

begin

clrscr-

write(‘введите текст:’)-readln(tec)-

l:=length(tec)+1-tec[l]:=’ ‘-

for i:=1 to l do if tec[i]=’ ‘then n:=n+1-

write(‘В тексте ‘,n,’ слов’)-

readln-

end.