Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Написать программу, которая считает, сколько слов в тексте, введенном с клавиатуры

Ответ оставил Гость

Const Alpha : set of char=[A..Z,А..П,Р..Я,a..z,а..п,р..я];var s:string;i:integer;wc:integer;beginwriteln(Введите текст); readln(s);i:=1; wc:=0;Repeatwhile NOT(s[i] in Alpha) and (i<=length(s)) do inc(i);if (i<=length(s)) then inc(wc);while (s[i] in Alpha) and (i<=length(s)) do inc(i);Until (i>length(s));writeln(Количество слов в этом тексте = ,wc);end.