Строка из русских слов разделена пробелами (одним или несколькими). Найти длину самого короткого слова

@Alisher2222 · Регистрация: 18.05.2013

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

Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Найти длину самого короткого слова.

@Sckrejjet · 28.03.2014, 14:17

Pascal

uses crt;
 
var
  s:string;
  i,n,min:integer;
  
BEGIN
  write('ââåäèòå ñòðîêó: ');
  readln(s);
  min:=Length(s);//íà ñëó÷àé,åñëè âñÿ ñòðîêà - ýòî îäíî ñëîâî
  
  for i:=1 to Length(s) do
    begin
      if (s[i]<>' ') then
        inc(n);
      if(s[i]=' ')or(i=Length(s)) then
        begin
          if (n<>0) and (n<min) then
            min:=n;
          n:=0;
        end;
    end;
  write('min = ',min);
END.

@Alisher2222 1 / 1 / 0 Регистрация: 18.05.2013 Сообщений: 93 Записей в блоге: 1
		1
	Строка из русских слов разделена пробелами (одним или несколькими). Найти длину самого короткого слова 28.03.2014, 12:18. Показов 6333. Ответов 1 Метки нет (Все метки) Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Найти длину самого короткого слова. 0

Опции темы

Строка из русских слов разделена пробелами (одним или несколькими). Найти длину самого короткого слова

Решение