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

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

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

 var 
 f:text; 
 z,tek,pred: char; 
 kol,max:integer; 
 begin 
   assign (f,'C:\Users\Admin\Desktop\EWTF.txt'); 
   reset(f); 
   read (f,pred); 
   kol:=1;z:=pred;max:=0; 
   while not eof (f) do 
   begin 
      read (f,tek); 
     if tek=pred then kol:=kol+1 else 
      begin  
      if kol>max then 
         begin 
       max:=kol; z:=pred; 
  end; 
  kol:=1; 
  end; 
  pred:=tek;end; 
     if kol>max then begin 
       max:=kol; 
       z:=pred; 
       end; 
       writeln(z,'',max); close (f); 
      end.

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