Встроке могут встречаться следующие символы: - прописные и строчные латинские буквы; - знаки препинания: точка, запятая, восклицательный и вопросительный знак; - пробелы; - символ -, обозначающий в некоторых случаях тире, а в некоторых - дефис.слово - это последовательность подряд идущих латинских букв и знаковдефис, ограниченная с обоих концов. в качестве ограничителей могут выступатьначало строки, конец строки, пробел, знак препинания, тире. тире отличается отдефиса тем, что слева и справа от знака дефис пишутся буквы, а хотя бы с однойстороны от тире идет либо начало строки, либо конец строки, либо пробел, либокакой-либо знак препинания, либо еще одно тире.напишите программу, определяющую, сколько слов в данной строке текста.входные данныевводится строка длиной не более 200 символов.выходные данныевыведите одно число — количество слов, которые содержатся в исходнойстроке.примерыввод выводhello, world! 2people 1 3chacha-kukaracha - not is a 4
program pole;
var a, b, c, d, n, kolvo, x, y: real;
begin
write ('За сколько часов топчет землю Нейромонах Феофан? ');
read (a);
write ('За сколько часов топчет землю Балалаечник Никодим? ');
read (b);
write ('За сколько часов топчет землю Косолапый Мишка? ');
read (c);
write ('За сколько часов топчет землю 1 Добрый Молодец? ');
read (d);
write ('За сколько часов нужно выкопать землю? ');
read (n);
x:=1/a+1/b+1/c;
kolvo:=(1/n-x)/(1/d);
if (kolvo<0) then write ('Группа справится без молодцев.') else
begin
y:=kolvo;
if (((trunc(y*10)) mod 10) <5) then
kolvo:=kolvo + 1;
write ('Вот столько вам потребуется добрых молодцев: ', round(kolvo));
end;
end.