Подсчитать максимальное количество идущих подряд пробелов - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д