На этом форуме отвечают на конкретные вопросы. Фраза «я не понимаю, как решать» — это не вопрос. На вопрос «как решить задачу №X» вас отошлют к материалам сайта kpolyakov.spb.ru. За бессвязный поток слов и неспособность формулировать свои мысли — бан.

Если у вас не сходится ответ на какую-то задачу, пожалуйста сразу представляйте свое «правильное» решение.

Для регистрации на форуме щелкните по ссылке «Вход-регистрация» вверху страницы. В открывшееся окошко «ник» введите свою фамилию на русском языке (например, Иванов). В окошко «пароль» введите придуманный вами пароль, состоящий из латинских букв и цифр. Поставьте галочку в окошке «зарегистрироваться, я новый участник» и нажмите кнопку «ОК».

 var s:string; 
 i,k,max:integer; 
 begin 
 assign(input,'24.txt'); 
 readln(s); 
 MAX:=0; 
 for i:=1 to length(s)-1 do 
   BEGIN 
 if (s[ i]<>'Q')AND(S[I+1]<>'W') THEN 
 begin 
 INC(K); 
 IF K>MAX THEN MAX:=K; 
 END 
 ELSE K:=0; 
 END; 
 WRITE(MAX); 
 END.

Создай свой форум на сервисе Borda.ru
Форум находится на 2 месте в рейтинге
Текстовая версия