Дана строка, заканчивающаяся точкой. Подсчитать, сколько в ней слов.

Var
   S:string;
   i,k:integer;
Begin
Write(Введите строку: );ReadLn(S);
k:=0;
i:=1;
Repeat
if (S[i] = )or(S[i] = ,)or(S[i] = :)or(S[i] = ;)or(S[i] = ?)or(S[i] = !) then
   if not((S[i+1] = )or(S[i+1] = ,)or(S[i+1] = :)or(S[i+1] = ;)or(S[i+1] = ?)or(S[i+1] = !)) then
      k:=k+1;
i:=i+1
Until S[i] = .;
WriteLn(Количество слов: ,k+1);
End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.