k:=0;for i:=1 to n dobeginif s[i]='e' then k:=k+1else k:=0;if k=5 then writeln('Есть 5 е подряд');end;
Добрый день. Меня заинтересовал ваш ответ "k:=0;for i:=1 to n dobeginif s[i]='e' then k:=k+1else k:=0;if k=5 then writeln('Есть 5 е подряд');en..." на вопрос http://www.liveexpert.org/topic/view/156575-ochen-srochno-pomogite-pascal. Можно с вами обсудить этот ответ?