Question

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

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.
 

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.