• Помогите, пожалуйста, составить программу, определяющую длину самого короткого слова в предложении. Если можно, то с объяснением. Даю 25 баллов.

Ответы 10

  • Фух сделал ппц сложновато чего-то
    • Автор:

      karlywewc
    • 5 лет назад
    • 0
  • хех)))
  • Но он же на 5-м месте по популярности в мире
  • Все... я не буду спорить с вами об очевидном. Популярность - вовсе не тот критерий, которым следует руководствоваться программисту.
  • Спасибо за разговор, собирался питон выучить, теперь задумаюсь
    • Автор:

      hays
    • 5 лет назад
    • 0
  • Если Вы собираетесь всю жизнь писать веб-приложения для браузеров - учите Питон на здоровье.
  • Нравится синтаксис Питона - учите Ruby, по крайней мере, он компилятор.
  • Даже в старом паскале можно писать короче и проще:var s:string; p,min:integer;beginreadln(s);s:=s+' ';p:=pos(' ',s);min:=p-1;while p>0 do begin delete(s,1,p); p:=pos(' ',s); if (p<>0)and(p-1<min) then min:=p-1; end;writeln('Длина наименьшего: ',min);end.Пример:Папа у Васи силён в математикеДлина наименьшего: 1
    • Автор:

      belen
    • 5 лет назад
    • 0
  • var i1,i,k,sl,min:integer;s:string;beginmin:=1000;k:=0;readln(s);s:=s+' ';for i:=1 to length(s) do if s[i]=' ' then k:=k+1;for i:=1 to k do begini1:=1;while s[i1] <> ' ' do beginsl:=sl+1;i1:=i1*k+1;if s[i1]=' ' then beginif sl<min then min:=sl;sl:=0;end;end;end;writeln('Длина наименьшего:',min);end.
  • // PascalABC.NET 3.3, сборка 1583 от 25.11.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadlnString.ToWords;  var i:=a.Select(t->t.Length).ToArray.IndexMin;  Writeln('Самое короткое слово "',a[i],'" длиной ',a[i].Length)end.ПримерЗеленые бесцветные идеи яростно спятСамое короткое слово "идеи" длиной 4
    • Автор:

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

Войти через Google

или

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

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

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