Определить длину самого длинного слова тексте

@SerzhPevets · Регистрация: 26.10.2016

Author24 — интернет-сервис помощи студентам

Дан текст. Найти длину самого длинного слова

@Cyborg Drone · 01.11.2016, 17:29

Pascal

var s: string;
    i, k, max: integer;
begin
  writeln('Введите строки текста, окончание ввода - пустая строка:');
  max := 0;
  repeat
    readln(s);
    s := s + ' ';
    k := 0;
    for i := 1 to length(s) do
      begin
        if s[i] in [' ', '.', ',', '?', '!'] //разделители можно добавить
          then begin
            if k > max then max := k;
            k := 0
          end
          else inc(k)
      end
  until length(s) = 1;
  write('Максимальная длина слова: ', max);
  readln
end.

@SerzhPevets 0 / 0 / 0 Регистрация: 26.10.2016 Сообщений: 14
		1
	Определить длину самого длинного слова тексте 30.10.2016, 13:50. Показов 4043. Ответов 1 Метки нет (Все метки) Дан текст. Найти длину самого длинного слова 0

	01.11.2016, 17:29

Определить длину самого длинного слова тексте

Решение