Найти в строке самое маленькое слово и вывести его на экран

@НИКСССА · Регистрация: 15.12.2011

Author24 — интернет-сервис помощи студентам

возможности проверить нет...задача: найти в строке самое маленькое слово и вывести его на экран!
кстати чем можно заменить слово length,на какое нибудь другое?????

Pascal

Program n1;
Var s:read;
i,n,k,p1,p2,d:integer;
Begin
  writeln('введите строку');
  readln(s);
  n:=0;
k:=0;
d:=length(s);
  for i:=1 to length(s) do
    if ((s[i]=' ')and(s[i+1]<>' ')) or (i=length(s)) then
      begin
         k:=i;
         if d>k-n then
           begin
             d:=k-n;
             p1:=n;
             p2:=k;
           end;
         n:=i;
      end;
  writeln('Min word:');
  for i:=p1+1 to p2 do write(s[i]);
End.

так можно???подскажите работать будет??проверить негде!

@Puporev · 15.12.2011, 17:11

Сообщение от НИКСССА

чем можно заменить слово length,на какое нибудь другое

Pascal

1	d:=ord(s[0]);

	15.12.2011, 17:11