Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.