Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Настя Силина
1 / 2 / 0
Регистрация: 04.09.2013
Сообщений: 87
#1

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

05.09.2013, 11:28. Просмотров 456. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Произведение цифр (Pascal):

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

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

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

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

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

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

6
Somebody
2799 / 1610 / 150
Регистрация: 03.12.2007
Сообщений: 4,210
Завершенные тесты: 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
Модератор
54037 / 41670 / 14748
Регистрация: 18.05.2008
Сообщений: 97,984
05.09.2013, 12:22 #3
Видимо
Цитата Сообщение от Настя Силина Посмотреть сообщение
число N (0 ≤ N ≤ 10^9).
0
Новичок
Модератор
1471 / 936 / 226
Регистрация: 17.07.2012
Сообщений: 4,861
Завершенные тесты: 3
05.09.2013, 15:36 #4
Puporev, да,скорее всего так и есть.Правда какой тип выдержит такие числа большие?(Кстати там компилятор не Turbo,Free,а Delphi).
0
Somebody
2799 / 1610 / 150
Регистрация: 03.12.2007
Сообщений: 4,210
Завершенные тесты: 3
05.09.2013, 15:46 #5
Какие "такие большие". 10^9 - это вроде немного. Ввод - LongInt, вывод хранить как число необязательно.
0
Puporev
Модератор
54037 / 41670 / 14748
Регистрация: 18.05.2008
Сообщений: 97,984
05.09.2013, 16:06 #6
Цитата Сообщение от Новичок Посмотреть сообщение
Кстати там компилятор не Turbo,Free,а Delphi).
В Делфи это вообще integer
0
Новичок
Модератор
1471 / 936 / 226
Регистрация: 17.07.2012
Сообщений: 4,861
Завершенные тесты: 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
Привет! Вот еще темы с ответами:

Произведение нечетных цифр числа - Pascal
Дано натуральное число N, найти произведение нечетных цифр числа. Верно-ли, что в данном числе нет данной цифры A? (A вводится с клавиатуры)

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

Найти произведение цифр натурального числа n. - Pascal
ветвление 14.1 Написать программу, которая по заданным трем числам определяет, является ли сумма каких-либо двух из них положительной ...

Найти произведение первых трех цифр - Pascal
Найти произведение первых трех цифр заданного целого числа и определить какому символу оно соответствует.


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

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

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