Символьные массивы: посчитать количество слов в строке и вывести длину каждого слова - Turbo Pascal
Формулировка задачи:
Помогите написать программу, условие такое: посчитайте количество слов в строке и выведите длину каждого слова.
P.S. Первую часть - посчитать кол-во слов в строке я понял, хоть и в методиках мало что дано, а вот вторую никаких аналогий нету(вывести длину каждого слова - ну это что не получается)
Решение задачи: «Символьные массивы: посчитать количество слов в строке и вывести длину каждого слова»
textual
Листинг программы
var i:integer; s,t:string; begin write('CTPOKA:'); readln(s); t:=''; for i:=1 to length(s) do if pos(s[i],'!?-.,:; ')=0 then t:=t+s[i] else if t<>'' then begin writeln(t,':',length(t)); t:=''; end; if t<>'' then writeln(t,':',length(t)); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д