.Ввести с клавиатуры символьную строку и определить сколько в ней слов. Пример: Вася пошел гулять.---- Найдено 3 слова.
.Ввести с клавиатуры символьную строку и определить сколько в ней слов. Пример: Вася пошел гулять.---- Найдено 3 слова.
Гость
Ответ(ы) на вопрос:
ГостьЕсли слова разделяются одним пробелом, то задачу можно решить так:
var s:string; k:integer;
begin
writeln('Введите строку');
readln(s);
s:=s+' ';
k:=0;
while pos(' ',s)>0 do
begin
k:=k+1;
delete(s,1,pos(' ',s));
end;
writeln('Количество слов в строке = ',k);
end.
Пример:
Введите строку
Вася пошел гулять.
Количество слов в строке = 3
Гость// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var s:=ReadlnString('>');
Print('Найдено слов:',s.ToWords.Count)
end.
Тестовое решение:
> Вася пошел гулять
Найдено слов: 3
Не нашли ответ?
Похожие вопросы