Есть задача:
найти максимальное число идущих вподряд пробелов в вводимом тексте
заранее спасибо!!!
киньте если есть готовую задачу или идеи...
for i:=1 to Length(s) do if s[i]=' ' then begin
Inc(n);
if n>m then Inc(m)
end
else n:=0;
program probel;
uses crt;
var s,e:string;
Begin
clrscr;
writeln('Введите фразу:');
readln(s);
e:=' ';
while length(e)<255 do insert(' ',e,1);
repeat
if pos(e,s)<>0 then write(length(e)) else delete(e,1,1);
until pos(e,s)<>0;
write('Наибольшее число стоящих рядом пробелов в введённой фразе равно ',length(e));
readkey;
end.