Дано предложение, определить кол-во слов в нём.
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.