Символьные массивы: посчитать количество слов в строке и вывести длину каждого слова - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д