Дана строка, заканчивающаяся точкой. Подсчитать, сколько в ней слов.
Нет комментариев
Ответы
Гость 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.
Нет комментариев
Список предметов
