Ввести строку, посчитать количество слов (язык-паскаль_)
Ввести строку, посчитать количество слов (язык-паскаль_)
Гость
Ответ(ы) на вопрос:
Гостьvar
s:string;
i,k:integer;
nc:boolean;
begin
readln(s);
for i:=1 to length(s) do
begin
if ( (i=1) or (s[i-1]=' ') ) and (s[i]<>' ') then
nc:=true;
if (nc=true) and ( (s[i]=' ') or (i=length(s)) then
begin
nc:=false;
inc(k);
end;
end;
writeln(k);
end.
Не нашли ответ?
Похожие вопросы