Вводится последовательность символов, оканчивающаяся точкой. Сосчитать количество слов.В Pascal.
Вводится последовательность символов, оканчивающаяся точкой. Сосчитать количество слов.В Pascal.
Гость
Ответ(ы) на вопрос:
ГостьVar
s,q:string;
i,n,j,m,k,l:longint;
begin
Readln(s);
m:=0;
s:=' '+s+' ';
for i:=1 to length(s) do if s[i]<>' ' then
begin
if s[i-1]=' ' then l:=i;
if s[i+1]=' ' then
begin
inc(m);
end;
end;
Writeln(m);
end.
Не нашли ответ?
Похожие вопросы