четверг, 7 марта 2013 г.

Дана строка. Найти слово минимальной длины.

Дана строка. Найти слово минимальной длины.

uses crt;
var s: string;
i,dmin,nmin,d,ns: integer;
slovo:array[1..10] of string;
begin
readln(s);
s:=s+' ';
dmin:=length(s);
ns:=0;

for i:=1 to length(s) do
if s[i]<>' ' then inc(d) else
if d<>0 then
begin
inc(ns);
if d<=dmin then
begin
dmin:=d; nmin:=ns;
slovo[1]:=copy(s,nmin,dmin);
end;


d:=0;
end;
writeln('Слово минимальной длины: ',slovo[1],', его длина ',dmin,' символа. Оно стоит на ',nmin,' позиции.');

end.