Автор Capricorn 91 задал вопрос в разделе Другие языки и технологии
нужна помощь как в паскале посчитать количество слов в строке? и получил лучший ответ
Ответ от Dark Smile ;)™[гуру]
Считай пробелы))
Ответ от Ice Soul °¤°[активный]
var s:string;i,k:integer;beginwriteln("vvedite stroku i bla bla bla");readln(s);s:=s+' ';for i:=0 to length(s)-1 dobeginif ((s[ i ]<>' ')and(s[i+1]=' '))k:=k+1;end;writeln("koli4estvo slov - ",k);readln;end.как то так, паскаля нету, не проверял.
var s:string;i,k:integer;beginwriteln("vvedite stroku i bla bla bla");readln(s);s:=s+' ';for i:=0 to length(s)-1 dobeginif ((s[ i ]<>' ')and(s[i+1]=' '))k:=k+1;end;writeln("koli4estvo slov - ",k);readln;end.как то так, паскаля нету, не проверял.
Ответ от DiG DeePeR[гуру]
примерно так:c:=0;for x:=1 to length(s) do if s[x]=' ' then c:=c+1;writeln('количество слов ',c+1);
примерно так:c:=0;for x:=1 to length(s) do if s[x]=' ' then c:=c+1;writeln('количество слов ',c+1);
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: нужна помощь как в паскале посчитать количество слов в строке?