Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/18: Рейтинг темы: голосов - 18, средняя оценка - 4.78
anny_by
1

Найти все целые числа в интервале от 100 до 999, сумма цифр которых больше произведения этих цифр

25.12.2013, 18:28. Показов 3510. Ответов 1
Метки нет (Все метки)

помогите решить задачу
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.12.2013, 18:28
Ответы с готовыми решениями:

Вывести все целые числа в диапазоне от 0 до 999 сумма цифр которых равна 15
Изучал с# по интернет курсу, и застрял на этой задачке. Подскажите пожалуйста Написать ...

Найти в интервале от N1 до N2 все числа, сумма цифр которых делится нацело на количество цифр
Разработать приложение, позволяющее найти в интервале от N1 до N2 все числа, сумма цифр которых...

Найти и вывести все числа в интервале от 1 до N - 1, у которых сумма всех цифр совпадает с суммой цифр данного числа
Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N - 1, у которых СУММА ВСЕХ...

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

1
Модератор
8684 / 4338 / 2979
Регистрация: 17.08.2012
Сообщений: 13,808
26.12.2013, 18:50 2
Лучший ответ Сообщение было отмечено как решение

Решение

Не по теме:

anny_by, это называется "решите за меня". Помогите это когда Вы выкладываете на форум то, что Вы уже сделали, и задаёте вопрос в контексте непонятных Вам моментов Вашей уже проделанной работы. "У меня нет времени, болел, пропустил" и т. п. за отмазку не хиляют.



Добавлено через 13 минут
Вот два решения Вашей задачи:
Pascal
1
2
3
4
5
6
7
8
9
10
11
program anny_by;
 
var i, j, k: integer;
 
begin
  for i := 1 to 9 do
    for j := 0 to 9 do
      for k := 0 to 9 do
        if i + j + k > i * j * k then write(i, j, k, ' ');
  readln
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program anny_by;
 
var i, j, k, n: integer;
 
begin
  for n := 100 to 999 do
    begin
      k := n mod 10;
      j := n mod 100 div 10;
      i := n div 100;
      if i + j + k > i * j * k then write(n, ' ')
    end;
  readln
end.
Выбирайте.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2013, 18:50

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

Найти в интервале [100,N] все целые числа, не содержащие повторяющихся цифр
Моя идея: найти количество цифр числа, найти количество различных цифр числа. Если эти количества...

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

Найти и вывести все пары соседних элементов, в которых сумма цифр первого числа больше суммы цифр второго
Дан массив целых чисел. Найти и вывести все пары соседних элементов, в которых сумма цифр первого...


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

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

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