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

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

Решение:

program String55;
var
 S,BigWord:String;
 i,poz:integer;

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

  i:=1;
  poz:=pos(' ',S);

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

  Writeln(BigWord);
end.

program String55;

var

S,BigWord:String;

i,poz:integer;

begin

Write('S: ');

Readln(S);

i:=1;

poz:=pos(' ',S);

While (poz<>0) do

begin

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

if poz>1 then

begin

if (poz-1)>Length(BigWord) then BigWord:=copy(S,1,poz-1);

Delete(S,1,poz);

end;

poz:=pos(' ',S);

end;

if Length(S)>Length(BigWord) then BigWord:=S;

Writeln(BigWord);

end.

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

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

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

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