Найти и вывести на экран слово с наименьшим количеством букв

@kestugar · Регистрация: 15.05.2010

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

Разработать программу, которая в заданной строке находит и выводит на экран слово с наименьшим количеством букв. Слова разделены пробелами (одним или несколькими).
помогите плиз решить))спасибо

@yanyk1n · 18.05.2010, 21:31

Pascal

uses crt;
var st, buf, min:string;
i, min_l:integer;
f:boolean;
 
begin
    write('Строка -> ');
    readln(st);
    min_l:=999;
    min:='';
    buf:=''; 
    for i:=1 to length(st) do
    begin
        if st[i]<>' ' then
        begin
            buf := buf + st[i];
            f:=true;
        end else begin
            if f then
            begin
                if (length(buf) < min_l) then
                begin
                    min := buf;
                    min_l := length(buf);
                end;
                f := false;
            end;
            buf := '';
        end;
    end;
    if buf<>'' then
    begin
      if (length(buf) < min_l) then
      begin
          min := buf;
          min_l := length(buf);
      end;
        buf:='';
    end;
    writeln(min);
    readln;
end.

@kestugar · 18.05.2010, 22:27 **[ТС]**

Спасибо)

@kestugar 9 / 9 / 6 Регистрация: 15.05.2010 Сообщений: 184
		1
	Найти и вывести на экран слово с наименьшим количеством букв 18.05.2010, 20:58. Показов 2884. Ответов 2 Метки нет (Все метки) Разработать программу, которая в заданной строке находит и выводит на экран слово с наименьшим количеством букв. Слова разделены пробелами (одним или несколькими). помогите плиз решить))спасибо 0

@kestugar 9 / 9 / 6 Регистрация: 15.05.2010 Сообщений: 184
	18.05.2010, 22:27 [ТС]	3
	Спасибо) 0

Найти и вывести на экран слово с наименьшим количеством букв

Решение