• Вводится строка текста из N символов,слова разделены одним пробелом.Найти длину самого длинного слова.Написать программу в Паскале.

Ответы 1

  • vari,k,l:integer;s:string;beginreadln(s);k:=0;i:=1;while i<length(s) dobegin   l:=0;  while (s[i]<>' ') and (i<length(s)) do   begin    l:=l+1;    i:=i+1;  end;  i:=i+1;  if l>k then k:=l;end;writeln(k);end.

    • Автор:

      alfonso87
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years