Предложение состоит из слов-строк. Написать программу, которая подсчитывает количество...

Question

Предложение состоит из слов-строк. Написать программу, которая подсчитывает количество слов в предложении

Answer 1

vartext:string; i, count:integer; beginwrite('бестолковые ученики'); readln(str); i:=length(str); if i>0 thenbegin count:=1; whilei>0 dobeginif str[i]=' 'then count:=count+1; i:=i-1; end; endelse count:=0; writeln(count); readln; end.