String46. Решебник Абрамяна М. Э.

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

Решение Pascal

program String46;
var
 S:String;
 i,Num,NumC,MaxNumC:integer;
 
begin
  Write('S: ');
  Readln(S);
 
  i:=1;
  Num:=0;
  NumC:=0;
  MaxNumC:=0;
 
  While (i<=Length(S)) do
   begin
    if (S[i]=' ') then
     begin
      if ((NumC>MaxNumC) or (MaxNumC=0)) and (NumC<>0) then MaxNumC:=NumC;
      NumC:=0;
     end
      else inc (NumC);
    inc(i);
   end;
  if ((NumC>MaxNumC) or (MaxNumC=0)) and (NumC<>0) then MaxNumC:=NumC;
  Writeln(MaxNumC);
end.

program String46;

var

S:String;

i,Num,NumC,MaxNumC:integer;

begin

Write('S: ');

Readln(S);

i:=1;

Num:=0;

NumC:=0;

MaxNumC:=0;

While (i<=Length(S)) do

begin

if (S[i]=' ') then

begin

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

NumC:=0;

end

else inc (NumC);

inc(i);

end;

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

Writeln(MaxNumC);

end.

На нашем сайте Вы можете заказать решение любой задачи по программированию на любом языке программирования

Поделитесь с друзьями

Образовательный портал uTeacher

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

Решебник Абрамяна М. Э. на Pascal и С++. Символы и строки: группа String (1-70)