Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
ro_mashka2000
0 / 0 / 0
Регистрация: 08.02.2010
Сообщений: 24
#1

дано натуральное число

09.09.2010, 17:57. Просмотров 891. Ответов 1
Метки нет (Все метки)

дано натуральное число n (n>=9999). Верно ли, что это число содержит ровно три одинаковые цифры, как например, числа 6676, 4544, 0006 и т.д?

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

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.09.2010, 17:57
Ответы с готовыми решениями:

Дано натуральное число n. Получите наименьшее натуральное число вида m2, превосходящее n
Дано натуральное число n. Получите наименьшее натуральное число вида m2,...

Дано натуральное число N. Получить наименьшее число вида 4k, меньшее N.
Дано натуральное число N. Получить наименьшее число вида 4k, меньшее N.

Дано натуральное число n получить наименьшее число вида 2^x превосходящее n
Дано натуральное число n получить наименьшее число вида 2^x превосходящее n....

[Операторы цикла] Дано натуральное число n, и действительное число x. Вычислить
Доброго времени суток, много уважаемые форумчани. Прощу вас о помощи. По...

Дано натуральное число n. Получите наименьшее число вида 2^k, превосходящее n
Пусть дано натуральное число n. Получите наименьшее число вида 2^k,...

1
iama
1326 / 979 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
09.09.2010, 18:06 #2
Лучший ответ Сообщение было отмечено ro_mashka2000 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var nums: array [0..9] of 0..4; n: longint; i: 0..9;
begin
write('enter n: '); readln(n);
for i := 0 to 9 do nums[i] := 0;
// Вот тут можно ещё вставить проверку колличества символов
while n <> 0 do begin
  nums[n mod 10] := nums[n mod 10] + 1;
  n := n div 10;
end;
 
for i := 0 to 9 do if nums[i] = 3 then writeln(i, ' reapeats 3 times');
readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.09.2010, 18:06

Дано натуральное число n, получить наименьшее число вида 2^r, прувосходящее n
Дано натуральное число n, получить наименьшее число вида 2^r, прувосходящее...

Дано натуральное число:верно ли, что данное число заканчивается на нечетную цифру.
Дано натуральное число:верно ли, что данное число заканчивается на нечетную...

Дано натуральное число N. Построить новое число удалением из числа N нечетных цифр
Дано натуральное число N. Построить новое число удалением из числа N нечетных...


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

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

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