Строки. Ввести предложение , найти самое длинное слово и удалить его.

@ElliotHell · Регистрация: 27.12.2011

Ввести предложение , найти самое длинное слово и удалить его.

@hunter_90 · 29.01.2012, 09:21

Pascal

uses crt;
var s,sl,smax: string;
    i,imax,dmax: integer;
begin
clrscr;
write('vvedite stroku: ');
readln(s);
s:=s+' '; sl:=''; dmax:=0;
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i]
       else
       begin
       if length(sl)>dmax then
          begin
          imax:=i-length(sl);
          dmax:=length(sl);
          smax:=sl;
          end;
       sl:='';
       end;
writeln ('samoe dlinnoe slovo "',smax,'" dlinoi v ',dmax,' simvolov');
   delete(s,imax,dmax);
   writeln(s);
   readln
   end.

@ElliotHell 0 / 0 / 0 Регистрация: 27.12.2011 Сообщений: 38
		1
	Строки. Ввести предложение , найти самое длинное слово и удалить его. 27.01.2012, 13:57. Показов 1582. Ответов 1 Метки нет (Все метки) Ввести предложение , найти самое длинное слово и удалить его. 0

Опции темы

Строки. Ввести предложение , найти самое длинное слово и удалить его.

Решение