Автор: Anton

Anton — Mon, 12 Dec 2016 03:51:02 +0000

В ответ на Newton. Добавил в шапку.

Автор: Newton

Newton — Sun, 11 Dec 2016 15:29:48 +0000

Решил так:

program String46;

const
   Space    = ' ';

var
   Line               : string;
   WordLen, MaxLen    : byte;
   Counter            : byte;
   
begin 
   writeln('Enter a string: ');
   readln(Line);
   WordLen := 0;
   MaxLen  := 0;
   for Counter := 1 to Length(Line) do
      begin
         if (Line[Counter] <> Space) then
            inc(WordLen);
         if (Line[Counter] = Space) or (Counter = Length(Line)) then
            begin
               if (WordLen > MaxLen) then 
                  MaxLen := WordLen;
               WordLen := 0;
            end;
      end;
   writeln('The longest word in the string contains ', MaxLen, ' character(s)');
end.

program String46;

const

Space = ' ';

var

Line : string;

WordLen, MaxLen : byte;

Counter : byte;

begin

writeln('Enter a string: ');

readln(Line);

WordLen := 0;

MaxLen := 0;

for Counter := 1 to Length(Line) do

begin

if (Line[Counter] <> Space) then

inc(WordLen);

if (Line[Counter] = Space) or (Counter = Length(Line)) then

begin

if (WordLen > MaxLen) then

MaxLen := WordLen;

WordLen := 0;

end;

writeln('The longest word in the string contains ', MaxLen, ' character(s)');

end.

Комментарии: Решаем задачи Абрамян на Паскале. String46

Автор: Anton

Автор: Newton