Дана строка символов S. Найти длинну самого короткого слова.

@metalist1925 · Регистрация: 17.05.2011

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

Помогите написать программу:
Дана строка символов S. Найти длинну самого короткого слова.

Добавлено через 34 минуты
ну помогите же очень срочно надо!!!!!!!!!!!!!!!!!!!!!

Добавлено через 40 минут
помогите пожалуйста!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

@Lecar · 22.05.2011, 19:44

Pascal

program slova;
uses crt;
var w:string;
      fl,fs,k,i,j,l,s:integer;
begin
clrscr;
read (w);
i:=length (w);
w[i+1]:=' ';
k:=0; s:=50; l:=0;
for j:=1 to i+1 do begin
 if w[j]<>' ' then begin
  k:=k+1;
  end else begin
   if k>l then begin
     l:=k;
     fl:=j-k;
   end;
    if k<s then begin
      s:=k;
      fs:=j-k;
      end;
    k:=0;
    end;
       end;
for i:=1 to l do begin
write (w[fl]);
inc(fl);end;
writeln;
for i:=1 to s do begin
write (w[fs]);
inc(fs);
end;
readln;
readln;
end.

Вот, правда ищет самое длинное и самое короткое слово.

@metalist1925 1 / 1 / 0 Регистрация: 17.05.2011 Сообщений: 134
		1
	Дана строка символов S. Найти длинну самого короткого слова. 22.05.2011, 19:14. Показов 1199. Ответов 1 Метки нет (Все метки) Помогите написать программу: Дана строка символов S. Найти длинну самого короткого слова. Добавлено через 34 минуты ну помогите же очень срочно надо!!!!!!!!!!!!!!!!!!!!! Добавлено через 40 минут помогите пожалуйста!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 0

	22.05.2011, 19:44

Дана строка символов S. Найти длинну самого короткого слова.

Решение