Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 20.03.2013
Сообщений: 14
1

Верно ли, что в строке есть по крайней мере n подряд идущих букв a.

14.05.2013, 12:44. Просмотров 771. Ответов 4
Метки нет (Все метки)


Дана строка и число n. Верно ли, что в ней есть по крайней мере n подряд идущих букв a.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.05.2013, 12:44
Ответы с готовыми решениями:

Строки. Известно, что в строке есть, по крайней мере, одна запятая. Найти номер позиции первой по порядку запятой
известно, что в строке есть, по крайней мере, одна запятая. Найти номер позиции первой по порядку...

Верно ли, что в стоке есть по крайней мере "N" подряд идущих букв "А"
Даны строка и число "N". Верно ли, что в ней есть, по крайней мере, "N" подряд идущих букв "А". ...

Верно ли ,что в последовательности s[1],...,s[n] имеются пять идущих подряд букв e
Помогите решить в Паскале... Даны натуральное число n, символы s,...,s. Выяснить, верно ли ,что в...

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

4
Модератор
62832 / 46891 / 32315
Регистрация: 18.05.2008
Сообщений: 113,622
14.05.2013, 13:10 2
Pascal
1
2
3
4
5
s1:='';
for i:=1 to n do
s1:=s1+'a';
if pos(s1,s)>0 then write('есть')
else write('нет');
0
0 / 0 / 0
Регистрация: 20.03.2013
Сообщений: 14
14.05.2013, 13:22  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
Pascal
1
2
3
4
5
s1:='';
for i:=1 to n do
s1:=s1+'a';
if pos(s1,s)>0 then write('есть')
else write('нет');
написал а он пишет: Неизвестное имя 's1'
0
Модератор
62832 / 46891 / 32315
Регистрация: 18.05.2008
Сообщений: 113,622
14.05.2013, 13:24 4
Цитата Сообщение от Squid94 Посмотреть сообщение
написал
А что ты написал? Скопировал мой кусок кода? Ну-ну, далеко на халяве не уедешь, напиши всю программу, начиная с раздела var
0
0 / 0 / 0
Регистрация: 20.03.2013
Сообщений: 14
14.05.2013, 13:25  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
А что ты написал? Скопировал мой кусок кода? Ну-ну, далеко на халяве не уедешь, напиши всю программу, начиная с раздела var
Pascal
1
2
3
4
5
6
7
begin
s1:='';
for i:=1 to n do
s1:=s1+'a';
if pos(s1,s)>0 then write('есть')
else write('нет');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.05.2013, 13:25

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Дана строка текста. Выяснить, верно ли, что в нем есть пять идущих подряд одинаковых чисел
Дана строка текста. Выяснить, верно ли, что в нем есть пять идущих подряд одинаковых чисел. Найти...

Вывести на экран все слова, состоящие из K букв, в которых есть по крайней мере две одинаковые буквы, стоящие рядом
Напишите пожалуйста программу В алфавите языке племени «тумба-юмба» четыре буквы: «Ы», «Ш», «Ч»...

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

Подсчитать, наибольшее количество букв “а”, идущих подряд в данной строке
2) Дана строка символов. Подсчитать, наибольшее количество букв “а”, идущих подряд в данной строке...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.