Предмет: Информатика,
автор: Cinnamomum
СРОЧНО!написать в паскаль авс программу, в которой с клавиатуры вводится предложение, состоящее из разделённых одним пробелом слов,каждое слово разделяется 1 пробелом, вывести самое короткое слово из него и написать сколько
в нем букв. программу написать с помощью команд copy, str,val.
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
СПАСИБО БОЛЬШОЕ!!!!!!!
Автор ответа:
0
Если не так работает напиши
Автор ответа:
0
Хорошо
Похожие вопросы
Предмет: География,
автор: ulanakazmircuk
Предмет: Математика,
автор: Katusha2410
Предмет: Биология,
автор: annamoscow2323
Предмет: Математика,
автор: NastyaKP
Предмет: Геометрия,
автор: Ane4ka260224