Форум » Обработка символьных строк » Определить длину и количество самой короткой цепочки в строке » Ответить
Определить длину и количество самой короткой цепочки в строке
Pavlova21: var s: string; i, n, m,count: integer; begin readln(s); s := s + ' '; m := 0; n := 0; count:=0; for i := 1 to length(s)-1 do if s <> ' ' then begin inc(n); count:= count+1; if s[i+1] = ' ' then begin if (n < m) or (m = 0) then m := n; n := 0 end end; writeln(m,' ', count) end.
Ответов - 2
Pavlova21: длину самой короткой цепочки находит, а количество не считает
Pavlova21: все, поняла как делать
полная версия страницы