СРОЧНО!написать в паскаль авс программу, в которой с клавиатуры вводится предложение,...

Question

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

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

Comments

Слово с двух сторон отделено пробелом всегда ?

---

кроме первого и последнего видимо

---

Нужно, чтобы он определил самое маленькое слово и написал сколько в нем букв

---

Человек шел по улице

---

Дай пример любой

---

Нам на уроке даже так не разжевывали условие задачи! Сказали:"слова отдлены одним пробелом", всё

---

Я дал формулировку автору вопроса, чтобы было однозначное понимание, но "ёж - птица гордая", снова по-своему перевернули.

---

ок

---

Первое и последнее только 1 пробелом

---

Ну это важно

Answer 1

Var
  s:string;
  i,j,k,p,min,n:integer;
begin
  Write('Введите предложение: '); Readln(s);
  s:=s+' ';
  n:=Length(s);
  min:=n;
  j:=0;
  for i:=1 to n do
    if s[i]=' ' then begin
      k:=i-j-1;
      if min>k then begin min:=k; p:=j+1 end;
      j:=i;
    end;
Writeln(min,' ',copy(s,p,min))
end.
 

Comments

System.Text.RegularExpressions;

---

а какая это библиотека ? название ?

---

Через uses (как #include) библиотека подключается - и все дела

---

Я на Free и Turbo пишу такое не знаю )

---

Это не в самом ABC, он использует .Net

---

Я тоже))) Но знать нужно.

---

я на ADC не пишу )

---

В версии АВС есть объектная библиотека для строк. Там и парсер, и регулярные выражения.

---

Все даперло )

---

Все, остальное в ЛС

Answer 2

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.

Comments

Если не так работает напиши

---

Хорошо

---

СПАСИБО БОЛЬШОЕ!!!!!!!