Строка символов. Определить длинну самого длинного слова и его порядковый номер в строке.

@Richik123 · Регистрация: 26.12.2011

Author24 — интернет-сервис помощи студентам

1)Дана строка символов. Определить длинну самого длинного слова и его порядковый номер в строке.

@КонецСвета · 21.03.2012, 20:44

Pascal

uses crt;
var s,sl,smax: string;
    i,n,dmax,nmax: integer;
begin
write('s=');
readln(s);
s:=s+' '; sl:='';dmax:=0;
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i]
       else if length(sl)>0 then
       begin
       inc(n);
       if length(sl)>dmax then
          begin
          dmax:=length(sl);
          smax:=sl;
          nmax:=n;
          end;
       sl:='';
       end;
writeln ('Самое длинное слово "',smax,'" длиной в ',dmax,' символов, порядковый номер ',nmax);
write('s=',s);
end.

@Richik123 4 / 4 / 1 Регистрация: 26.12.2011 Сообщений: 263
		1
	Строка символов. Определить длинну самого длинного слова и его порядковый номер в строке. 20.03.2012, 22:01. Показов 2071. Ответов 1 Метки нет (Все метки) 1)Дана строка символов. Определить длинну самого длинного слова и его порядковый номер в строке. 1

	21.03.2012, 20:44

Опции темы

Строка символов. Определить длинну самого длинного слова и его порядковый номер в строке.

Решение