Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.08.2018 02:12
- Информатика
- remove_red_eye 7133
- thumb_up 35
Ответы и объяснения 1
Uses crt;
Var s,p:string; i,k,min,max,x,y:integer;
Begin
ClrScr; Write('Input string:'); Readln(s);
min:=length(s);
For i:=1 to length(s) do
If not(s[i]=' ') and not(i=length(s)) then p:=p+s[i] else{выделяем слова}
Begin
If i=length(s) then p:=p+s[i];
If length(p)>max then
Begin
max:=length(p); x:=Pos(p,s);{находим самое длинное слово и его позицию}
End;
If length(p) Begin
min:=length(p); y:=Pos(p,s);{находим самое короткое слово и его позицию}
End;
p:=''; inc(k);
End;
Writeln('Words:',k);{вывод кол-ва слов}
Writeln('Long:',x,' Short:',y);
Readln;
End.
- 08.08.2018 05:58
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.