Дана строка, содержащая текст. найти длину самого короткого и самого длинного слов.

295

440

Посмотреть ответы 2

Ответы на вопрос:

RFTBOY

Информатика

4,5(42 оценок)

Var s: string; max,min,i,k: integer; begin write('введите строку: '); readln(s); s: =s+' '; for i: =1 to length(s) do begin if s[i]=' ' then begin if k> max then max: =k; if (k< min) or (min=0) then min: =k; k: =-1; end; k: =k+1; end; writeln('самое короткое: ',min,'; самое длиное: ',max); end.

Qaswe1

Информатика

4,7(93 оценок)

*- любое количество любых символов, в т.ч. их отсутствие ? - 1 любой символ, обязательно присутствующий 1) *e? ? e.d? *else.dospenie.docchtenie.dovarenie.dllaaaaeaae.daa2) *x? ? r.t? *dexter.txt exter.tx xaar.ta aaaaaxaar.taa a1234x56r.t789