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.
До семи лет мальчик обычно оставался на попечении женщин, потом начиналось суровое военное воспитание. По целым дням он пропадал в лесах, окружавших отцовский замок, учился сражаться на мечах, копьях, биться на палках, стрелять, ездить на коне, плавать, переносить походные тяготы.Учили его и охотничьим навыкам — обращаться с соколом, носить его на руке, напускать на птицу, охотиться с собаками. Охота была любимым развлечением рыцарства в свободное время.Однако о развитии ума, обучении каким-либо наукам заботились мало. Редко кто из рыцарей, чего греха таить, умел читать и писать. Грамота считалась, скорее, «женским делом» — девочка училась ей у домашнего священника и потом с удовольствием читала молитвенник или героические .Мальчику оставалось лишь слушать песни бродячих жонглеров, забредших в отцовский замок, восхищаться подвигами их героев и давать себе обещания подражать им в течение всей жизни.С ранних лет будущий рыцарь укреплялся в беззаветной вере своих отцов в учение Христа, в христианских заповедях. Но и христианство воспринималось упрощенно, лишь в соответствии с рыцарским духом, поскольку оно как бы оправдывало воинские устремления.
До семи лет мальчик обычно оставался на попечении женщин, потом начиналось суровое военное воспитание. По целым дням он пропадал в лесах, окружавших отцовский замок, учился сражаться на мечах, копьях, биться на палках, стрелять, ездить на коне, плавать, переносить походные тяготы.Учили его и охотничьим навыкам — обращаться с соколом, носить его на руке, напускать на птицу, охотиться с собаками. Охота была любимым развлечением рыцарства в свободное время.Однако о развитии ума, обучении каким-либо наукам заботились мало. Редко кто из рыцарей, чего греха таить, умел читать и писать. Грамота считалась, скорее, «женским делом» — девочка училась ей у домашнего священника и потом с удовольствием читала молитвенник или героические .Мальчику оставалось лишь слушать песни бродячих жонглеров, забредших в отцовский замок, восхищаться подвигами их героев и давать себе обещания подражать им в течение всей жизни.С ранних лет будущий рыцарь укреплялся в беззаветной вере своих отцов в учение Христа, в христианских заповедях. Но и христианство воспринималось упрощенно, лишь в соответствии с рыцарским духом, поскольку оно как бы оправдывало воинские устремления.
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.