|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.06.2011, 21:44 | #1 |
Регистрация: 25.06.2011
Сообщений: 9
|
Задача про 3 числа
Ребята мне на зачёте дали задачу.
Дано натуральное число n. Проверить, есть ли в этом числе 3 совпадающего числа. (n<=9999). Например 9989-есть 3 совпадающего числа. Разясните пж как можно её сделать или помогите её написать. |
25.06.2011, 21:55 | #2 |
Delphi master
Пользователь
Регистрация: 28.05.2011
Сообщений: 96
|
Можешь преобразовать число в string функцией inttostr, а затем по одному символу проверяешь. Также можешь создать массив символов и сравнивать их. При положительном результате сравнения счётчик (например k) увеличивается на 1. Ну и в конце всех действий проверяешь, если k>=3 тогда есть повторяющиеся символы!
Пример: Код:
БЯЯЯГГАААААА
Последний раз редактировалось Leo08; 25.06.2011 в 22:06. |
25.06.2011, 22:01 | #3 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
Как-то так можно искать цифры в числе.
Код:
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
25.06.2011, 23:39 | #4 |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,318
|
Или как то так:
Код:
________ Код нужно оформлять по правилам: тегом [CODE]..[/СODE] (это кнопочка с решёточкой #) Не забывайте об этом! Модератор.
Как-то так, ...
Последний раз редактировалось Serge_Bliznykov; 26.06.2011 в 11:06. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
задача Delphi про простые числа | Crysta | Помощь студентам | 0 | 07.12.2010 19:50 |
Про сверхдлинные числа | luchok | Фриланс | 8 | 29.05.2009 16:30 |
Про сверхдлинные числа | luchok | Фриланс | 9 | 28.05.2009 13:37 |
[Pascal] Задача про натуральные числа | Knife | Помощь студентам | 1 | 22.04.2009 02:04 |
Про числа | Акашаев Нурлан | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 12.12.2007 07:18 |