Program PR1;
uses crt;
var stroka,tmp:string;
i,b,max:integer;
Begin
clrscr;
readln(stroka);
max:=0;
for i:=1 to length(stroka) do if (stroka[i]=' ') or (stroka[i]='.') then begin
if length(tmp)>max then max:=length(tmp);
tmp:='';
end
else begin
tmp:=tmp+stroka[i];
if i=length(stroka) then if length(tmp)>max then max:=length(tmp);
end;
writeln(max);
end.
Для того чтобы система могла свернутся,т.к. если нажимать на кнопку может заедать
Сколько бы ни размышляли философы над перспективами
<span>информационного общества, о сущности информационно-компьютерной революции, философия остается верной сама себе и выполняет лишь ей присущую функцию, только когда она занимается человеком. </span>
<span>То, что мы привыкли называть Человеком, совпадает с понятием общество. Но помимо этого абстрактного родового существа, обитающего в философских трактатах, статистически усредненного и обобщенного, наш мир населен обычными, нормальными, живыми людьми. Эти люди живут и умирают, борются, побеждают, терпят поражения, занимаются бизнесом, работают на заводах и в конторах, ленятся, бездельничают, рожают детей, страдают от болезней и старости, обладают властью или сопротивляются ей, занимаются наукой и философией или бедствуют в полном невежестве в глухих трущобах. </span><u>Я думаю написала неправильно все таки сам проверь)
</u><u>
</u>
