СРОЧНО!написать в паскаль авс программу, в которой с клавиатуры вводится предложение, состоящее из разделённых одним пробелом слов,каждое слово разделяется 1 пробелом, вывести самое короткое слово из него и написать сколько в н...
СРОЧНО!написать в паскаль авс программу, в которой с клавиатуры вводится предложение, состоящее из разделённых одним пробелом слов,каждое слово разделяется 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.
Гость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.
Не нашли ответ?
Похожие вопросы