Дано предложение. В нем слова разделены пробелом.Верно ли ,что число слов в предложении больше трёх.Напишите пожалуйста программу в паскале . Заранее спасибо

Question

Дано предложение. В нем слова разделены пробелом.Верно ли ,что число слов в предложении больше трёх.Напишите пожалуйста программу в паскале . Заранее спасибо

Гость

Ответ(ы) на вопрос:

Accepted Answer

vars:string;i,count:integer;begincount:=0;readln (s);for i:=1 to length(s) doif (s[i]=' ') then count:=count+1;if (count+1 >=3) thenwriteln ('Верно')elsewriteln ('Неверно'); end.