Решаем задачи Абрамян на Паскале. String45

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

Решение:

program String42;
var
 S:String;
 i,Num,NumC,MinNumC:integer;

begin
  Write('S: ');
  Readln(S);

  i:=1;
  Num:=0;
  NumC:=0;
  MinNumC:=0;

  While (i<=Length(S)) do
   begin
    if (S[i]=' ') then
     begin
      if ((NumC<MinNumC) or (MinNumC=0)) and (NumC<>0) then MinNumC:=NumC;
      NumC:=0;
     end
      else inc (NumC);
    inc(i);
   end;
  if ((NumC<MinNumC) or (MinNumC=0)) and (NumC<>0) then MinNumC:=NumC;
  Writeln(MinNumC);
  readln;
end.

program String42;

var

S:String;

i,Num,NumC,MinNumC:integer;

begin

Write('S: ');

Readln(S);

i:=1;

Num:=0;

NumC:=0;

MinNumC:=0;

While (i<=Length(S)) do

begin

if (S[i]=' ') then

begin

if ((NumC<MinNumC) or (MinNumC=0)) and (NumC<>0) then MinNumC:=NumC;

NumC:=0;

end

else inc (NumC);

inc(i);

end;

if ((NumC<MinNumC) or (MinNumC=0)) and (NumC<>0) then MinNumC:=NumC;

Writeln(MinNumC);

readln;

end.

Другие задачи из раздела String можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. String45

Комментарии:

Добавить комментарий Отменить ответ