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

Произведение цифр

05.09.2013, 11:28. Просмотров 464. Ответов 6
Метки нет (Все метки)

Требуется найти наименьшее натуральное число Q такое, что произведение его цифр равно заданному числу N.

Входные данные

В единственной строке входного файла INPUT.TXT записано одно целое число N (0 ≤ N ≤ 109).

Выходные данные

В выходной файл OUTPUT.TXT нужно вывести искомое число Q. В том случае, если такого числа не существует, следует вывести -1.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.09.2013, 11:28
Ответы с готовыми решениями:

Найти кол-во цифр числа, больших 6 и произведение цифр, не удовлетворяющих данному критерию
Дано натуральное число. Написать программу, котрая будет находить: а)кол-во цифр этого числа,...

Найти такое число, что сумма его цифр превосходит произведение цифр этого же числа на 1
сумма цифр заданного четырехзначного N превосходит произведение цифр этого же числа на 1. ПОМОГИТЕ...

Дано четырехзначное число. Выведите на экран TRUE, если произведение крайних цифр этого числа кратно сумме цифр числа
Помогите решить простые задачи мозги кипят: 4-я. Дано четырехзначное число. Выведите на экран...

Произведение цифр - 2
Найдите количество чисел из отрезка , которые делятся на произведение своих цифр. Входные данные...

Произведение четных цифр
Пожалуйста подскажите где ошибка Задача. Найти произведение всех четных цифр. Как мне...

6
Somebody
2799 / 1610 / 251
Регистрация: 03.12.2007
Сообщений: 4,213
Завершенные тесты: 3
05.09.2013, 12:19 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
digitCounts: array [2 .. 9] of Byte;
...
FillChar(digitCounts, sizeof(digitCounts), 0);
for i := High(digitCounts) downto Low(digitCounts) do
  while ni mod i = 0 do
  begin
    Inc(digitCounts[i]);
    ni := ni div i;
  end;
digitWritten := false;
if ni <> 1 then
  Write('-1')
else
begin
  for i := Low(digitCounts) to High(digitCounts) do
    for j := 1 to digitCounts[i] do
    begin
      Write(i);
      digitWritten := true;
    end;
end;
if (ni = 1) and not digitWritten then
  Write('1');
0
Puporev
Модератор
54368 / 41957 / 28980
Регистрация: 18.05.2008
Сообщений: 98,829
05.09.2013, 12:22 #3
Видимо
Цитата Сообщение от Настя Силина Посмотреть сообщение
число N (0 ≤ N ≤ 10^9).
0
Новичок
Модератор
1494 / 967 / 460
Регистрация: 17.07.2012
Сообщений: 4,921
Завершенные тесты: 3
05.09.2013, 15:36 #4
Puporev, да,скорее всего так и есть.Правда какой тип выдержит такие числа большие?(Кстати там компилятор не Turbo,Free,а Delphi).
0
Somebody
2799 / 1610 / 251
Регистрация: 03.12.2007
Сообщений: 4,213
Завершенные тесты: 3
05.09.2013, 15:46 #5
Какие "такие большие". 10^9 - это вроде немного. Ввод - LongInt, вывод хранить как число необязательно.
0
Puporev
Модератор
54368 / 41957 / 28980
Регистрация: 18.05.2008
Сообщений: 98,829
05.09.2013, 16:06 #6
Цитата Сообщение от Новичок Посмотреть сообщение
Кстати там компилятор не Turbo,Free,а Delphi).
В Делфи это вообще integer
0
Новичок
Модератор
1494 / 967 / 460
Регистрация: 17.07.2012
Сообщений: 4,921
Завершенные тесты: 3
05.09.2013, 17:18 #7
Цитата Сообщение от Somebody Посмотреть сообщение
Какие "такие большие". 10^9 - это вроде немного.
Да,как-то не подумал,действительно LongInt хватит.Правда в Delphi больше всего int64.
0
05.09.2013, 17:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.09.2013, 17:18

Произведение цифр числа
Помогите пожалуйста сделать функцию. Чему равняется произведение цифр числа, четному или нечетному....

произведение цифр числа
Дано натуральное число N .Найти: а)произведение цифр числа; б)верно ли,что данное число...

Найти произведение цифр числа
Помогите решить задания!!!!!!!!!!!!!!! Буду очень благодарен.....


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

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

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