Подсчитать максимальное количество идущих подряд пробелов - Free Pascal
Формулировка задачи:
Известно, что длинна последовательности символов не превышает наперед заданого числа nmax. Подсчитайте максимальное количество идущих подряд пробелов. Заранее спасибо!
Решение задачи: «Подсчитать максимальное количество идущих подряд пробелов»
textual
Листинг программы
var nmax,i,k,max:integer;
c:char;
begin
write('Сколько символов ввести nmax=');
readln(nmax);
writeln('Введите ',nmax,' символов в строку,');
writeln('в том числа послеовательности пробелов, нажмите Enter');
max:=0;
k:=0;
for i:=1 to nmax do
begin
read(c);
if c=' ' then inc(k)
else if (c<>' ')or(i=nmax)then
begin
if k>max then max:=k;
k:=0;
end;
end;
readln;
write('Максимальное количество пробелов подряд=',max);
readln
end.