Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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