String46. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Найти длину самого длинного слова.
>
Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | 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. |
На нашем сайте Вы можете заказать решение любой задачи по программированию на любом языке программирования