Дано предложение. В нем слова разделены пробелом.Верно ли ,что число слов в предложении больше трёх.Напишите пожалуйста программу в паскале . Заранее спасибо
var
s:string;
i,count:integer;
begin
count:=0;
readln (s);
for i:=1 to length(s) do
if (s[i]=' ') then count:=count+1;
if (count+1 >=3) then
writeln ('Верно')
else
writeln ('Неверно');
end.
Спасибо большое!!!!
при условии что начальные и конечные пробелы и символ '-' в предложении отсутствуют