profile
Размещено 5 лет назад по предмету Информатика от wwwkrasaru9

Лазарус: 
1.    
Даны символы S1, S2, ..., Sn
(вводятся одной строкой).


а) подсчитать наибольшее
количество идущих подряд введенных символов;


б) выяснить, верно ли, что в
последовательности S1, S2,
..., Sn имеются пять идущих подряд введенного символа.

  1. Ответ на вопрос
    Ответ на вопрос дан sellsaccount
    uses crt;
    var a, b, c, i, j, n:integer;   
    s, k :array [1..10000] of integer;
    begin
         clrscr;
         writeln ('Введите размер массива > 4.');
         read (n);
         for i:=1 to n do 
         begin 
              writeln ('Введите ', i, ' элемент.'); 
              read (s[i]); 
         end;
         for i:=1 to n do 
              for j:=1 to n-1 do 
                   while s[i]=s[j] do   
                   begin   
                        j:=j+1;   
                        inc (k[i]);   
                   end;
         a:=k[1];
         for i:=1 to n do 
              if a<k[i] then
                   a:=k[i];
         if k[i]=0 then k[i]:=1;
         writeln ('Наибольшая длина равных элементов идущих последовательно равна ', k[i], '.');
         for i:=1 to n-5 do 
              if (s[i+4]-s[i+3]=1) and (s[i+3]-s[i+2]=1) and (s[i+2]-s[i+1]=1) and (s[i+1]-s[i]=1) then  inc (b);
         if b=0 then writeln ('Нет 5 последовательны чисел.') else writeln ('Есть 5 последовательных чисел и это количество равно ', b);
    end.

    P.S. Надеюсь на благодарность и лучший ответ.
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.