Question

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

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

Answer 1

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.

Answer 2

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

Answer 3

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

Answer 4

Хорошо