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

String56. Дана строка-предложение на русском языке. Вывести самое короткое слово в предложении. Если таких слов несколько, то вывести последнее из них. Словом считать набор символов, не содержащий пробелов, знаков препинания и ограниченный пробелами, знаками препинания или началом/концом строки.

Решение:

program String56;
var
 S,SmallWord:String;
 poz:integer;

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

  poz:=pos(' ',S);
  SmallWord:=copy(S,1,poz-1);

  While (poz<>0) do
   begin
    if poz=1 then delete(S,1,1);
    if poz>1 then
     begin
      if (poz-1)<=Length(SmallWord) then SmallWord:=copy(S,1,poz-1);
      Delete(S,1,poz);
     end;
    poz:=pos(' ',S);

   end;
  if Length(S)<=Length(SmallWord) then SmallWord:=S;

  Writeln(SmallWord);
end.

program String56;

var

S,SmallWord:String;

poz:integer;

begin

Write('S: ');

Readln(S);

poz:=pos(' ',S);

SmallWord:=copy(S,1,poz-1);

While (poz<>0) do

begin

if poz=1 then delete(S,1,1);

if poz>1 then

begin

if (poz-1)<=Length(SmallWord) then SmallWord:=copy(S,1,poz-1);

Delete(S,1,poz);

end;

poz:=pos(' ',S);

end;

if Length(S)<=Length(SmallWord) then SmallWord:=S;

Writeln(SmallWord);

end.

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

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

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

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