Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/35: Рейтинг темы: голосов - 35, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 15.10.2014
Сообщений: 80
1

Найти минимальное положительное целое число Q такое, что произведение цифр числа Q в точности равняется N

25.02.2015, 01:58. Показов 6519. Ответов 3
Метки нет (Все метки)

Ваша задача — найти минимальное положительное целое число Q такое, что произведение цифр числа Q в точности равняется N.

Исходные данные
Целое число N (0 ≤ N ≤ 109).

Результат
Выведите целое число Q. Если такого числа не существует, выведите −1.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.02.2015, 01:58
Ответы с готовыми решениями:

Найти число такое, что произведение его цифр равняется заданному числу
Дано число 0 < q < 1 000 000 000, являющееся произведением десятичных цифр некоторого числа. Найти...

Найти минимальное число такое, что произведение его цифр равно заданному числу
Дано натуральное число N от 9 до 10^7. Необходимо найти минимальное число k такое, что произведение...

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

Для данного числа m найти наименьшее положительное целое число с суммой цифр m и которое делится m
Для данного числа m найти наименьшие положительное целое число с суммой цифр m, которое делится m....

3
Эксперт Pascal/Delphi
2380 / 1292 / 1491
Регистрация: 29.08.2014
Сообщений: 4,626
25.02.2015, 09:32 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var 
    n,q,q1:longint;
procedure find(n:integer);    
var
  i,p:integer;
begin
  if (n=1) and ((q1>=q) or (q1=-1)) then q1:=q;
  for i:=2 to 9 do if n mod i =0 then begin 
      p:=q;
      q:=q*10+i;
      find(n div i);
      q:=p;
    end;  
end; 
begin
  repeat
    write('n=');
    readln(n);
  until n in [0..109];  
  if n<2 then q1:=n else begin q1:=-1; find(n);end;
  writeln(q1);
end.
0
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
25.02.2015, 09:48 3
Цитата Сообщение от King69 Посмотреть сообщение
Целое число N (0 ≤ N ≤ 109).
Там наверняка (0 ≤ N ≤ 109)
0
Эксперт Pascal/Delphi
2380 / 1292 / 1491
Регистрация: 29.08.2014
Сообщений: 4,626
26.02.2015, 06:21 4
на int64 тогда заменить, должно войти
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
    n,q,q1:int64;
procedure find(n:int64);    
var
  p:int64;
  i:integer;
begin
  if (n=1) and ((q1>=q) or (q1=-1)) then q1:=q;
  for i:=2 to 9 do if n mod i =0 then begin 
      p:=q;
      q:=q*10+i;
      find(n div i);
      q:=p;
    end;
end; 
begin
    readln(n);
  if n=0 then q1:=10  else
  if n<2 then q1:=n else begin q1:=-1; find(n);end;
  writeln(q1);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.02.2015, 06:21

Для данного числа m найти наименьшие положительное целое число с суммой цифр m, которое делится m
Для данного числа m найти наименьшие положительное целое число с суммой цифр m, которое делится m....

Дано целое число K. Найти произведение цифр числа К
Дано целое число K. Найти произведение цифр числа К.

Дано целое число K. Найти произведение цифр числа К
Доброго времени суток, уважаемые форумчане. Не могу разобраться, как реализовать это - дано целое...

Ввести произвольное целое положительное число. Определить число с обратным порядком цифр заданного числа
Я первокурсник, я мало времени уделил обучению(полный дурак, признаю.) но на завтра нужно сдать...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru