Подсчитать максимальное количество идущих подряд пробелов - 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы