В исходном тексте вывести на экран слово, содержащее максимальное количество символов

@dvpvitas · Регистрация: 12.03.2015

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

В исходном тексте вывести на экран слово, содержащее максимальное количество символов(букв). Разделитель пробел

@Cyborg Drone · 17.06.2015, 19:16

В тексте, не в строке? Тогда так:

Pascal

var f: text;
    s, w: string;
    i, k: integer;
begin
  assign(f, 'text.txt');
  reset(f);
  w := '';
  while not eof(f) do
    begin
      readln(f, s);
      s := s + ' ';
      while length(s) > 0 do
        begin
          k := pos(' ', s);
          if (k > 0) and (k - 1 > length(w)) then w := copy(s, 1, k - 1);
          delete(s, 1, k)
        end
    end;
  if length(w) > 0
    then write('Слово, содержащее максимальное количество букв: ', w)
    else write('Исходный текст не содержит слов');
  readln
end.

@dvpvitas 2 / 2 / 2 Регистрация: 12.03.2015 Сообщений: 51
		1
	В исходном тексте вывести на экран слово, содержащее максимальное количество символов 17.06.2015, 16:09. Показов 2205. Ответов 1 Метки нет (Все метки) В исходном тексте вывести на экран слово, содержащее максимальное количество символов(букв). Разделитель пробел 0

	17.06.2015, 19:16

В исходном тексте вывести на экран слово, содержащее максимальное количество символов

Решение