Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC По введенной дате определить день недели https://www.cyberforum.ru/ pascalabc/ thread512349.html мы вводим число,месяц, год, а программа нам выдает какой это будет день недели.	Pascal ABC Как описать матрицу через константу? Как описать матрицу 4*4 через константу?
Pascal ABC Вычислить значение функции https://www.cyberforum.ru/ pascalabc/ thread512333.html 1. a(a+1)...(a+n-1) значение a и n вводятся с клавиатуры. 2. 52 ∏ i/(i2+2i+3) i=1 3. Вычислить значение функции eх на интервале с шагом h=0.2.	Pascal ABC Создать текстовый файл и через меню предусмотреть просмотр, добавление и поиск данных https://www.cyberforum.ru/ pascalabc/ thread512331.html создать текстовый файл с произвольным текстом и через меню предусмотреть следующие действия: 1)просмотр содержимого файла 2)добавление строчек в конец файла 3)поиск файла заданной строки 4)подсчет количества строк в файле
Pascal ABC Получить квадратную матрицу по правилу Заранее огромное спасибо!	Pascal ABC Найти самое длинное и самое короткое слово в строке Пишем 5 слов, а далее выводим самое длинное и самое короткое слово в строке. Умоляю сделайте код, как можно проще... https://www.cyberforum.ru/ pascalabc/ thread512222.html
Pascal ABC Выполнить сортировку строк матрицы по возрастанию https://www.cyberforum.ru/ pascalabc/ thread512171.html В матрице E1(n,n) выполнить сортировку строк по возрастанию.Элементами главной диагонали заполинить массив E2,найти в нём минимальный элемент и его номер.	Выполнить чертеж детали Pascal ABC Вот собственно сами задачи, всё с 1-го параграфа, но никак не могу сделать, ни на уроке, ни дома не выходит. помогите пожалуйста! Вот собственно сами задачи, всё с 1-го параграфа, но никак не могу сделать, ни на уроке, ни дома не выходит. помогите пожалуйста!
Pascal ABC Нарисовать телефон Нарисовать телефон, изображенный на рисунке цвет фона - серый цвет телефона - красный цвет трубки - светло-красный цвет кнопок - коричневый цвет экрана - синий https://www.cyberforum.ru/ pascalabc/ thread512148.html	Pascal ABC Найти и сохранить в строке те слова последовательности, которые отличны от последнего слова Дана строка. Словом текста считается любая последовательность букв русского алфавита; между соседними словами - не менее одного пробела, за последним словом – точка. Найти и сохранить в строке те слова последовательности, которые отличны от последнего слова, предварительно преобразовав каждое из них по следующему правилу: если слово нечетной длины, то удалить его среднюю букву. Все остальные... https://www.cyberforum.ru/ pascalabc/ thread512140.html
Pascal ABC Построить множество Построить и распечатать множество из диапозона чисел от 1 до 30. F - множество чисел, кратных 5 Е - множество чисел, кратных 5 или 3	Pascal ABC Посимвольное считывание Здравствуйте! Нужно считать строку, но считывать лишь до тех пор пока не будет нажат enter или esc. Написал приведенный ниже код, который читает код нажатой клавиши и если он есть в строке-константе, то выводит его, но тут такая беда, что нажимаю F1 -высвечивается; нажимаю стрелки -высвечиваются буквы. Как исправить можно? Заранее благодарен. uses Crt ; const FLett =... https://www.cyberforum.ru/ pascalabc/ thread512064.html

tm2012

110 / 110 / 100

Регистрация: 04.03.2012

Сообщений: 146

18.03.2012, 22:38

Дана символьная строка. Подсчитать самую длинную последовательность подряд идущих букв а. - Pascal ABC - Ответ 2810069

18.03.2012, 22:38. Показов 2251. Ответов 4

Метки (Все метки)

Ответ

Pascal

var 
   s:string; 
   a,i,m:byte;
begin
   cls;
   writeln('Введи строку: ');
   readln(s);
   a:=0; m:=0;
   for i:=1 to length(s) do 
      if (s[i]='a') or (s[i]='а') then  //английская или русская буква А
         begin 
            inc(a); 
            if a>m then m:=a; 
         end
      else a:=0;
   write('Самая длинная последовательность букв А: ',m);
end.

Вернуться к обсуждению:
Дана символьная строка. Подсчитать самую длинную последовательность подряд идущих букв а. Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

18.03.2012, 22:38

Готовые ответы и решения:

Дана символьная строка.подсчитать самую длинную последовательность
подряд идущих букв а.

Подсчитать самую длинную последовательность подряд идущих букв А
Ввести строку. Подсчитать самую длинную последовательность подряд идущих букв А.

Подсчитать в строке самую длинную последовательность подряд идущих букв А
Здравствуйте помогите пожалуйста! В основной программе должен быть оператор выбора задач,...

Дана строка. Подсчитать самую длинную последовательность подряд идущих букв а.
Дана строка. Подсчитать самую длинную последовательность подряд идущих букв а.

	18.03.2012, 22:38

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

18.03.2012, 22:38

Помогаю со студенческими работами здесь

Подсчитать самую длинную последовательность подряд идущих букв а.
Дана строка. Подсчитать самую длинную последовательность подряд идущих букв а. Желательно весь...

Дана строка. Подсчитать самую длинную последовательность подряд идущих букв а
Дана строка. Подсчитать самую длинную последовательность подряд идущих букв а.

Дана строка. Подсчитать самую длинную последовательность подряд идущих букв а
эта же тока подряд идущих букв а плиз помогите

Наверх