• Написать в паскаль. Вводится предложение. Определить длину самого длинного слова.

Ответы 1

  • var s:string;m,tmp,i:integer;beginreadln(s);for i:=1 to length(s) do beginif (s[i]<>' ') then inc(tmp)else begin   if tmp>m then m:=tmp;  tmp:=0;  end;end;if tmp>m then m:=tmp;writeln(m);end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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