• СРОЧНО!написать в паскаль авс программу, в которой с клавиатуры вводится предложение, состоящее из разделённых одним пробелом слов,каждое слово разделяется 1 пробелом, вывести самое короткое слово из него и написать сколько

    в нем букв. программу написать с помощью команд copy, str,val.

Ответы 9

  • СПАСИБО БОЛЬШОЕ!!!!!!!
    • Автор:

      houdini23
    • 5 лет назад
    • 0
  • Если не так работает напиши
  • Хорошо
  • Я на Free и Turbo пишу такое не знаю )
  • Через uses (как #include) библиотека подключается - и все дела
  • а какая это библиотека ? название ?
  • System.Text.RegularExpressions;
  • Все, остальное в ЛС
  • Var  s,q:string; i,n,j,m,k,l:longint;begin Readln(s); m:=maxlongint;  s:=' '+s+' ';  for i:=1 to length(s) do  if s[i]<>' ' then   begin   if s[i-1]=' ' then l:=i;      if s[i+1]=' ' then   begin    if m>length(copy(s,l,i-l+1)) then        begin            q:=copy(s,l,i-l+1);            m:=length(q);     end;     end;   end; Writeln(q);{Слово} writeln(m);{Кол. букв} end.
  • Добавить свой ответ

Войти через Google

или

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

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

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