АВ
Антон Винокуров

Дано натуральное число n. Найти и вывести все числа в интервале от 1 до n -1, у которых произведение всех цифр совпадает



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

Прошу прощения забыл язык написать C++

Наталья ****
Наталья ****

#include

int sd(int v) { return v < 10? v : v % 10 + sd(v / 10); }
int pd(int v) { return v < 10? v : v % 10 * pd(v / 10); }

int main() {
int n;
std::cout << "n? ";
std::cin >> n;
for (int c = 1; c < n; ++c) if ( sd(c) == pd(c) ) std::cout << c << ' ';
return 0;
}

ЗЫ:
> Alexey
> (1..n).each do |i| t = i; m := 1; s := 0; while (i > 0) do begin m := m * (i % 10); s := s + i ; i = i / 10; end; if (s == m) then print "#{ i }\n"; end;
Что-то оно совсем не рабочее с этими ":="
(1...n).each {|c| print "#{c} " if ((a = c.to_s.chars.map(&:to_i)).reduce(:*) == a.reduce(:+)) }

> Schadow
> Прошу прощения забыл язык написать C++
А "пожалуйста" ты не забыл сказать?

MP
Mashulya Podosinnikova

(1..n).each do |i| t = i; m := 1; s := 0; while (i > 0) do begin m := m * (i % 10); s := s + i ; i = i / 10; end; if (s == m) then print "#{ i }\n"; end;

Похожие вопросы
дано натуральное число n вычислить сколько цифр в числе n и чему равна сумма его цифр паскаль
задано натуральное число N. содержащее до 100 цифр. делится ли даное число на 3,6,7,9,11,12
N-натуральное число. Необходимо вывести на экран, например число "1" N раз.
дано натуральное число n>1 найти количество его делителей. В паскале с циклом for
Дано натуральное число. 1) приписать к нему такое же2)Найти количество различных цифр данного натурального числа. паскаль
помогите пожалуйста в Visual basic. Дано натуральное число N! вычислить суму цифр в числе N
дано натуральное число N,количество цифр в котором не менее четырех. Выяснить, равно ли произведение двух первых цифр в эт
задано натуральное число n. Найти сумму цифр данного числа с помощью функции !!!(паскаль)
Дано четырехзначное число. Найти произведение цифр этого числа.
Дано натуральное число N. Среди натуральных чисел N,N+1,...2N найти всех близнецов.